

Appleworks au travail 

Par A Cargadcnncc ct JM Jcgo IBS pages ■ 160FF 
AppleworHsestun logicielint^gfequi perniel m resoudre lesprobiemes cou rants rsri' 
ctmtrSs en entrepnse. Cat ouvrage est d'abwd un [ivre d'appf eiilissage pours'inifiera 
Appieworksau irawrs d'exemples concf-eis. II traite successivement des tasesde cfon- 
nSes du toitcment de texte et du tableau de cateul, teci avec ure difficulte cfoissante. 
Fofidionne sur Apole II e. II c et II GS. 



Clefs pour Apple II c et II e 65C02 

par Nicole Rn^fiiifl-Pniiliriiipn - iRO pages - }4Fi FF 

Ce livre est un mtmentoqui permef d'aoc^derfacilcmcntaux mfcnnations tellas que 
les conmandes Basicuusj'sterntfSiitstiifiitleFei, leirrjeiMgwd'eireiifilesadresses 
et jeu dlnstructions de b^CVi. Cet ouvrage est aussi un fecueil d'astuces qui permet- 
tent (Se justifier un texte a draite, de programmer la souriSi de transferer une image en 
memoirs auxiliaire... 

LJr mtmcnto indispensable 5 (out possesseure d'Apple B et d'Apple II e 65C02. 



Clefs pour Apple 11 GS 

D^ujtiime eflHion 

pgr Nicole Briaud Pouliqucn 216pogct 250 FF 

Get ouvrage offre iine synttiese desspecificrtes du matsrlel et des logiciels de develop- 
pement et parnet d 'acceder a des informators fondamentate concemant Ibrganisation 
mat^rwllf ' mpmrtirPLSPt rRsmiirfPS graph ifines. mifrf5prQcesseuretjBiid'in5truCtKJtlS, 
ontries/sorties... L'auteur dScrit en detail \s% diffSrerits logiciels de developpsment 
(moniteur, systems APW avec sot) iditcur ct son micro assembleurj etdonneun reper- 
toirede I'ensemblK [ieiuulil^delu^t;au.UllUlap!lleestcoll^^cr6au^appel5dlI Prados 
16. hntin, plusieure exeinples iilustr^n! toutes les possitiilites de pragrammatim de 
I'Appte II GS. 



Coraultcr los 
livras P.S.I, sur Mimtel aii 
36.15. Tape? 01 puis 
P.S.I. 




Tous Apple // 



Ordico 



Destin^e aux amateurs de mots croises ou de Scrabble, " 
cene base de donn6es, due ft Roland Jost, permet de 
Ira jver un mot do longueur donneo dont on n© oonnalt 
que quelques lettres. 

Ordico contient plus de 15 000 mots classes en 70 
rubriques. 

Recherches et aftichages soni rapides : un fichier de 

I 500 mots oGt chargo on moins do 10 sooondos el 
exploits quasi-instamanement. 

II ost bion sur possible d'ajoutor dos tormes aux divers 
ficl-ilers, de creer de nouvelles rubriques. 

Voici quelques rubriques : 
tare (act* : 

Aclaufs, Aniniaux, Arnws/gusires, Auteurs anwncains, 
Aifteiirs anglais, Auteurs frangais, Chimis, Cin^astss, 
Coureurs cycli$t&s, D^pSfienmHs/t&gions, 
Di9ijx/de9sse5, Families vegStahs, FemmQs c&lebr^s, 
Hommes poUtiques, lies, Jeux/sports, Mineraux, 
Montagnes, Musicisns jazz, Musiciens, Parties du 
corps, Peintres elrangers, Psintres frangais, 
Rivieres/fisuves, Ssints/saintss, SavarJts/irri/enteurs, 
Sculpleurs. v^g^taux, Vetemants, ViHes 
2emG iac& : 

Athl&tes, Boxeurs, Cantatricas, Cols, Cosmonautes, 
Coureurs auiomobiles. Deserts, DSlroits, Doctrines 
phUosophiquas, Drogues, Escrimaurs, Exptorateurs, 
Gymnastos, Halterophiles, Judokas, Lutteurs, 
MaiadiQS, Marechaux de France, Medicamerits, 
Nageurs, Paiineurs, Poissons, Presidents am§ricains, 
Skieurs, Si<i nordique, UnMs, Viilas olympiques 



bxemples : 

Un muslcieri dont le nom comporte 7 lettres, les 
26mG et Seme sont des 'E'. Tapez : -E — E — . 
Vous obtenez Instantanement : 

BENNEfT DbBOtUKDELEEUWGEVAEHT 
LESUEUn PEDRELL PEETERG WELLFGZ 

Dans les acleurs, -A E vous donnerait : 

CARETTE PALANCE RACETTE RANDONE RA YMONE 

VALLONE 

et H- ; 

CAUCMY CEECHI ENIGHT VAUGHN WRIGHT 
dans les fenimes t;6!6bres donnerait 



32 noms. 
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Pout eviter les saisies fastidieuses 
et pas toujours fiabks, Pom's 
met a votre disposition des 
disquettes d'accompagnement qui 
regroupent I'ensemble des 
programmes de la revue. 

Apple // 

Pour les Apple //. deux types de 
disqucttcs : 

- 140 Kg, 5,25 pouces, au prix 
de 60,00 F, fichiers en format 
DOS 3.3 au recto, eci fonnai 
PioDOS au verso. L'ensemble 
des programmes de ce numdro 
est coiKju pour fonctionner 
avec PrnDOS ; 

- 800 Ko, 3,5 pouces pour 
Unidisk, au prix de SO.flf) F, 
fichiers en format ProlH)S 
seulement. 

Pom's n'a pas encore de licence 
d'utilisation du fichier prodos 
aussi, la face Pro DOS n'est pas 
bootable, A I'aide du programme 
hlLhK DU de la disquette 
Utilitaires Systeme, installer les 
fichiers prodos et basic, system 
sur la face ProDOS : la disquette 
pourra fairc ddmarrcr Ic systcmc. 

Macintosh 

Si vous avez la disquette Mac 30, 
tout est simple puisque vous 
disposer des programmes preLs a 
Temploi : ce sonr des applications 
'double-cliquables' et autonomes. 
Les fichiers 'source' autorisent 
des modifications - ^ condition 
de detenir le 'Systeme de 
developpement 68000' - de 
I'application "TPom's". 

Si voui n'avez pas la disquette 
Mac 30, et afin de pouvoij utiliser 
"TPom's", il vous faudra saisir 



les fichiers necessaires a sa 
creation avec I'tSdiieur "Edit'* 
(Systeme de developpement 
68000), puis provoquer le traite- 
mem du fichier 'T Pom's.Job' 



depuis I'application "Exec" 
(toujours le Systfeme de develop- 
pement 68000). 



Fichiers et programmes sur la disquette Apple // 



DEMO.DECOMPACT 
DECOMPACT.OBJ 
DECOMPACT.S 
P0MS1 

P0MS2 a P0MS7 

DHGRTOOL 

DHGRTOOLS 

DHGRTOOLO 

HARD 

DEMOTOOL 

IM.HGRl 

1M.HGR2 

IM.DHGR 

S0L1RIS.U\SER 

LASER.START 

LftSER.MOUSE 

LASCR.SBn 

SOUHIS.DtMO 

SOURIS.C 

SETCURSOR.C 

INTERFACE.C 

INVERSION.G 

SOURIS 

SETCURSOR 

IMTERFACE 

INVERSION 

T.POMS 

T.P0MS1 aT.P0MS4 



Pr&grarrmG Basic do demonstration (RUN ou — ) 
Routine en assembieur 65fll6 (BLOAD) 
Source en format TEXT 

image GSPaint utilisee par DEMO.DECOMPACT 

Idem, mais seuiement sur disquettes 800 Ko 

Programme Basic a lancer par RUN ou par — 

Source en format TEXT 

Routine en asembleur 

Routine de HardCopie 

Prograrnme de demonstration des /outines 

Image HGR utilise pour ia demonstration 

Image HGR utilise pour ia demonstration 

image DHGR uliiise pour la demonstration (800 Ko seuiemant) 

Jen Ba.'sic (RUN ou — ] 

Programme Basic de lancement du jeu en assembleur (RUN ou - 

ler fichieF iance par LAShR-SfART 

26me fichier iance par LASER.START 

Demonstration des routines Souris (RUN ou — ) 

Routine asscmbleur 

Routine assembleur 

Routine assemWeur 

Routine assembleur 

Source assembleur en format TEXT 

Source assembleur en formal TEXT 

Source assembleur en IwrnatTPXT 

Source as&embleur en format TEXT 

Progfamme objet (BRUM ou — ) 

Sources en format TEXT 



Fichiers et programmes sur la disquette Macintosh 

Girl Image MacPant 

Japanese Girl Image MacPaint 

Screen Editor Application 

TPom's Application 

T Pom'e.Asm Fichier d 'assemblage MDS 68000 {Assembler} 

T Pom's.Job Fichier 'exec' MDS 68000 (Eifecutivej 

T^Pom's [Jnk Fichier de 'finkage' MDS 68000 (Linl<er) 

T^Pom's.R fichier de ressources NdDS 68000 (RWaKer) 

T_Pom's/1 .Asm Fichier d'assemblage MUS 680D0 (Assembier) 

T_Pom's/2.Asm Fichier d'assemblage MDS 68000 (Assembler) 

TlPorTTs/3.Asm Fichier d'assemblage MDS 58000 (Assembler) 

T_Pom'E/4.AEm Fichier d'assambiage MDS 68000 (Assembler) 
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Voici done boucl6 le 306me num4ro de Pom's, numero rajeuni par le prin- 
temps mais egalement par notre souci de qualite, y compris dans la presenta- 
tion, Pom's ^olue, s'ouvre an GS, k la commmiication, k la telematique, 
bientot au Mac SE et au Mac II ; ProDOS se doit de devenir la rfegle — la diver- 
site des supports nous y contraint et c'est vm bonne eontrainte — , DOS 3,3 
est en passe de devenir exception. C'est le sens de {'evolution Apple, 
MEM/DOS s'appuic d'ailleuis dfeji sur ProDOS qui est un pont avec les MFS et 
HFS du Mac. 

Le HGS lui-meme est un pont avec ligne Mac : I'acquereur du nouveau-ne, 
plongg dans la volumineuse documentation distribuee par VIF ou dans le livre 
de J.-P. Curcio au PSI sera familier de la ToolBox et des routines QuickDraw 
de son appareU. .. et de celles du Mac. 

Dans ces pages, tfelfematique toujours : apres I'enregistrement des pages des 
serveurs Minitel, le telechargement entre ^ple via Minitel et t^^phone, void 
des programmes de recuperation de I'annualre electronique, sur Apple // et 
sur Macintosh, Votre cable de liaison ne chomera pas : votre Apple // et votre 
Mac serviront bientot. . . 

La souiis est a rhonneur : une routine pour en fiaciliter la gestion depuis le 
Basic — I'Applesoft est bien pauvre la encore — et un double jeu de r6flexion 
construit autour de la souris, version Basic, version assembleur 65C02 (a vos 
kits...). 

Vous lirez €galement des bancs d'essai, MultiScribe» More 2 et la passion de 
nos r^dacteurs : le blUard. Quant k GSPaint et le Basic, il s'agit bien la de h 
premigre routine 65816 dans Pom's r ne doutez pas de l extension de cette 
rubrique,,. 

Ont collabore h ce numero : Alcxancirc Avmnc, Jcan-Luc Bazanegue, Mithd Durix:, Jean-Midid GuureviLuti, Olivier 

Hcrz, Roland Jost, Philippe Mathieu, Benoit Mcsnil, Gerard Michel, ChrisLian Piard, 
Alain Raynaud , Jacques Rey. Herve Thiriez, Bernard Tomeno. 

Directeur de la publication, redacteur en chef : Herve Thiriez, 

R^'dacteurs : Alexandre Avranc, Olivier Hcrx. 

Siege sotial : Editions MEV - 12, me d'Atijou - 78000 Versailles. Tel. : (1) 39.51.24.43. 
Publicity : Edi lions MEV. 
Diffusion : N.M.P.P, 

Impression : Bergcr-Lcvrauli - 18, rue des Glacis - 54000 Nancy. TSI. : 83.35.61 .44. 
Photo de couverture ; CP & JLB. 



Pom's est une revue ind^peiiflaTiEe non rattarfiee k Apple Computer. Inc. ni a Apple Computer France S.A.R.L, Apple, Ic logo 
Apple, Mac el le logo Macintosh son: des marques dcpos^us d* Apple Computer, inc. 
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QS^cimt et ^asic 

Jacques %z/ 



Apres avoir craque pnur un 
SLipcibe Ugs, il faul se rendre a 
Tevidence, que faire sans 1' ombre 
d'une documentation dans le 
carton, sans un seul renseigne 
ment sur Prodos 16, sur le port 
imprimante {que refusent obstine- 
ment certains programmes), sans 
pailer de la syaiiiese sonore qui 
avait charme nos oreilles dans la 
boutique ? II n'y a que 'Clefs 
pour Apple IIos' qui contient 
beauconp de choses encore bien 
vagucs... (La dutumcnlatiun 
technique maintenant disponible, 
3000 pages en 6 classeurs, 
2000,00 F, peut rendre le service 
esp6rej. 

Nous disposons, bien sur, de 
GS/Paint, c'esl beau ei 
spectaculaire, niais que faire de 
ces images que Ton ne peut 
manipuler qu'avec le 
programme ? Un fichier de 32 
Ko, en format ecran, ne se 
manipule pas facilement sous 
cnvironncmcnt Basic, system, 
Aussi etait-il tentant de charger en 
memoire les images sous format 
GS/Paint ct dc Ics transferer cn 
page Super Haute Resolution a 
I'aide d'une routine de 
decompactage. 

Structure d'une 
image GS 

La page Super IIGR se trouve 
dans le banc de memoire $E1 
($00 ctiuii Ic banc iicccssiblc par 
Basic. sytem et Prodos 8), elle 
debute en $2000 pour finir en 
$9FFF. L'imagc cn cllc-mcmc est 
constituee de 200 fois 160 octets 
situcs CJiirc $2000 ci $9CFF, 
chaque demi -octet representant 1 
pixel (en mode 320 x 200 adopre 
par GS/Paint) qui peut prendre 16 
valeurs definissant le niimern de 
rang d'une des couleurs d'une 
palette. 

Cette palette est form^e d'une 



suite de 16 fois deux octets qui 
par leurs combinaisons de valeurs 
constituent I'une des 4096 
nuances, rcmplaccmcnt reserve 
commence en $yE(X) et se termine 
en S9FFF cc qui pcrmet de loger 
16 palettes differentes ! 

De $9D00 a $9DC7 sc trouvem 
200 octets qui controlent chacun 
une ligne du dessin ; la partie 
basse de ces octets, en particulier, 
designe la palette qui est active 
pour une ligne donnec ce qui 
permet d'afficher 256 nuances 
dans une page. Dans le cas de 
GS/Paint une seule palette est 
active, ce qui simplifie bien les 
choscs. 

Analysons maintenant la structure 
d'un fichier image compactee par 
GS/Paint. 

On reconnait facilement que les 
32 premiers octets representent la 
palette de couleurs, viennent 
ensuite 514 octets qui dcroutent 
quelque peu et qui constituent 
finalement les canevas 
disponibles sur la ligne inferieure 
de I'ecran de GS/Paint. Ces 
octets ne seiont d'aucune utUiie 
pour la transcription du dessin. 
L'image proprement dite 
commence a partir du $222eme 
octet du fichier. 

Pour compacter une image, U faut 
isoler les groupes de pixels 
identiques des suites de points 
differenls les uns des autrcs, Le 
fichier compacte sera alors 
constiiue de pointeurs qui 
indiquent si Ton doit multiplier x 
fois I'ocfet suivant, ou bien 
recopicr les x octets qui suivenl 
directement. 

Le decompactage 

Dans Ic cas dc GS/Paint, la valeur 
donnee au pointeur va prendre 
trois significations differentes : 

• Un pointeur inferieur k $40 
indiquc que nous avons h. faire 



a un segment contenant des 
octets non identiques, le 
pointeur rinnne la Inngiienr du 
segment. 

• Les valeurs comprises entre 
SCO et $ E7 ainsi que $41, 
$42, $44, $45 et $46 nous 
invitent a multiplier I'octet 
suivant dc 2 k 160 fois : pour 
cela, SCO vaut coefficient 4, 
$C1 vaut 8, $C2= 12 cl ainsi 
de suite de 4 en 4 jusqu'a $E7 
= 160; les coefficients x2, 
x3, x5, x6 et x7 etant 
representes par les valeurs $41 
a $46. 

• Si le pointeur est compris entre 
$80 et SCO, il faut prendre en 
compte les quatre octets qui 
suivent et reproduire cette 
combinaison x fois. La vaieur 
de X 6tant trouvee en 
retranchaiu $80 du contenu du 
pointeur. 

L'exemple en encadre eclaircira le 
codage. 

La routine de decompactage est 
courte (moins de 256 octets), elle 
a 6t6 assemblee en $2000 en 
utihsant le Mini-moniteur, faute 
de mieux, le fichier 'source' liste 
ci-contre et figurant sur la 
disquette d'accompagnement est 
un fichier texte cree sur 
Appleworks en respectant la 
syntaxe approximative d'un 
assembleur. II est recupgrable 
avcc tout asscmblcur. 

Lc but etait avant tout d'utiliser 
des instructions specifiques du 
processeur 65C816, les transfens 
de blocs d' octets etant effectu^s a 
I'aide de l'in.<;tmction MVN qui 
copie A octets de I'adresse X vers 
I'adresse Y (X et Y sur 16 bits). 
Les bancs de mdmoire source et 
destination sont indiqu^s par les 
deux octets qui suivent 
I'instruction M'VN. 

II faut signaler deux contraintes 
importames a I'utilisation de 
MVN : 
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• le registre B (registre indi- 
quant le banc de donnde actif) 

conserve la valeur du banc de 
destination en fin d'instruction, il 
est done nccessaire dc Ic 
sauvegarder par phb (empilerB) 
avant mvn et le restituer par plb 
apres ; 

• si I'dn travaillft en mode natif 
mixtc (A sur 8 bits, X ct Y en 

16 bits), ce qui est le cas de la 
routine, 11 faul iinperativement 
annuter I'octet haut du registre A 
cai rinstmction mvn decompre 
tout de meme sur 16 bits (utiliser 
LDA £0 puis XBA avant de 
charger dans A le n ombre 
d'octets a transferer). 

La routine comportant quclques 
JSR internes (deux sous-routines 
de dccomptage) ne peut 6rre 
relogee qu 'apres des modifica 
tions tres sitnples a realiser. Pour 
lister le code objet cn monitcur, 
ne pas ouhlier de taper au 
prealable 0=x pour que le 
desassemblage se fasse sans 
erreurs et reconnaisse les codes 
sur 16 bits (la lettre x doit etre 
tapfe en minuscule). 

L'adresse de chaTgement du 
fitiiicr image compacte est 
$2100, pour la changer, modifier 
la valeur du 1 3eme octet. 
Le deuxieme octet contient la 
valeur qui permet la commutation 
du registre $C029 en mode Super 
HGR. Si Ton met $41 I'image est 
ecrite mai.s I'ecran reste en mode 
tcxtc, 11 faui alors taper poke 
49193,161 pour I'afficher et 
p OKE 4 9 1 9 3 , 6 5 pour re venir au 
texte ($C02 9 :A1 et $C029 : 41 
sous moniteur). 

En plagant SAl dan.s le rieuxieme 
octet, le d^compactagc a lieu cn 
direct ce qui peut creer un certain 
effet d'animation. 

Lorsqu'on se trouve en Super 
HGR, pour revenir au mode texte 
depuis le basic, seul le poke cite 
plus haut est aciif. Par contre, 
sous moniteur, taper ctrl-t puis 
Return. 

Le programme DEMO. DE- 
COMPACT illustre rutilisation 
de la routine. _d 





Source DECOMPACT.S 



* Version l.i - J, RET Fevi^ier/Hars 1SS7 



][gs 



ADSOU 




.-roijicff sur is zcne da 




1 ^Jmdiye ccntp^czee 


audes 


$Ea 


;Pointe sur 1^ ^cne ds 




ffGR 


COUP! 


?t:F 


/Csfflpt«ur d'octets 








$FA 


/Compceur ofe transfert 








SCO; II 










ijiitii 


tllSSllon ,t rat tt 







I HIT 



LDA £41 
STA WSR 
STS ADSOl/ 
STZ ADDES 
IDA £21 
STA ADS0V*1 
LDA f.XQ 
STA ABDES*1 
CLC 
XCE 

REP £10 



,-Ou LDA LAI BQur voir I'image se dicampacter 

.'PBZTDOt Ji i i/ldj Jj A Ei*rt deri ^drGB^os super f/CS 
,- tnitinii s^tiQn iies diJc&a^ea auLrxt;^ til 

;ctesrin$ rion 

; Image cosip^Stie chargee a partir tin $2100 



/Passage ert mode natif SiCSli 

:Adopt:ian d'j mode mixte A - S bits. X et Y = 3f bits 



iSavvQissrde sur la pile du N° de banc de dannees sctueJ 



,-Annuie tes g bits de aoids fort de A 

unit: de i "aflresse tfe a^sttaatian de pajette 
tfransfert de A accets tfu bine flC? vers El 



■JUAKSi'Al HHi) 

LOA £00 
XBA 

LDA £JF 

Lax ADSOU 
U>Y E9EO0 
iWW DCS J 

LDX C00C7 

RAZ STZ 9D06,X jftismf .is A itro de 1^ rnne 5r-jn Line Ccncccl Bice 

BEX i20<} octctj 

BFL RAZ 

I'LU /On se replace dans le banc 30 (B = SI ipres KVH) 

Analyse de J 'ijTiaoe caimactee " ttt m.i, » i m * 

DEBimc LDA L22 

STA MmOO 
CLC 

lOA ADSOUfl 
Anc ffl? 

STJ\ ADSOUil .-Prefllier p^iJtteur d ' inuit^ situs au ^222 eitii? (jcCet 



LECFQINt IDA tAn.inri) 

CMP lie 

CMP ICO 
BCS SUP CO 
CMP £SB 



SUITE 



LECPIX 



INC 

BRA 

!;ijpca "TEf 

SBC 
ASL 
ASL 
SfA 
.tSK 
LOA 
LDI 
PHY 
FLB 
STA 

em 

JSR 

BEC 
BNE 
JSR 



SUITE 
L3P 



fADSOV! 
LOOEl 



ItKADOes 

COMPl 
LECPrx 
INCABSOII 
LSCPOTNT 



ITa/lsfert d ' u/]e seg/ne/it a'occecj non identlqties 
;Le painteur e^i an stultlpiicaisur de i en 1 

;Le pointeur est un muitipllC3^?tlr par l,3,i,6 ou 7 
/(Visieur compriie entce ?41 et SiB) 

,-entre uu et hi en \ine valeur Be aultipllcacicn 

'octets CQPiprSse entre ^ et ISO (de 4 e,i 41 
* Initialise le ccf.-npEreur 

^ IncrcjJTanta 1 ' adjrosso souire^ 

/i^^cupiirt; la valeur rfe S 'octet 'PIkbZ' d multlpil^L 

;Saiive sur ia pile le N" de ofific sonrcs BE destination 

.-Conwute sur Je banc destination 

;Rrrtt if3nt fa p^^e Gr^^phitjusf 

^Conmuie auc le bdnc soucce 

; Tncr6i!\ente : 'aaresse ae aescJnjElon 

f'On recommence auLant ijue necessai ire 

rfSranchG iiu dchuf. dc I 'analyse 
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•Debut routine tie multiplication tie groupes de 4 octecj 
lie putijjjieateur vb de $0 s $A7 tl a fois 4 neteisl 

^-Tranfff&rE d ^une juice *rfe ■? o£?=«ca 



TRANS 4 SEC 

SSC CSU 
STJl COISP7 

TRANSOCT STfi cony I 

JSR INCADSOU /Pour sb placer sur ie premier octet: de Ja SLrice 



PHB 

LDA COB 
XBA 

LDA COMFl 



.•SauVE le banc source 



Recapitulation 
DECOMPACT.OBJ 

Api-^-s ^voIl &aisi fttLe 
r§capitulation sous monltevr, 

ssAVH utuum'Atjr . uaj, A^lOOO, 1,^101 





LDX ADSOU 




1 rt rt rt J * rt 


Al 


8D 


29 


CO 


G4 


E3 


64 




LDY ADOES 


;Ver3 cane El 










21 










MVN flCFJ 




ia0S:ED 


64 


FA 


A9 


8b 


EC 


A9 






^i^ecour flu fcarti^ liis efepart 


1010: ?0 




FF 


Ifl 


FB 


CP 


10 


SR 


BOi'CLE 




;Lin avdnce de deux eixels lur. sccez) 


1013:A9 


ao 


EB 


A5 


If 


AS 


EB 


AO 








1020:00 


9E 


54 


El 


00 


A2 


C7 


00 






rSl tatisfSTLS nlultiplG3 ssuits Increirtsnz^tloti de 


102B:9E 


00 




CA 


1 V 


FA 


Aj3 


AS 


* 






1 030:22 


S3 


BB 


1 8 


A3 


EL 


69 


02 








102$: $5 




82 




C9 




90 


34 


SAJT 


DEC COliPl 




EC 


EB 


40 




BPL BO:;CLE 


;Avj.tce j>s sdeesses f*u no.-niife d'oaet m^nsf^re 


J 040:C9 


CO 


BB 


03 


C9 


BO 


BO 


25 




LDA £03 




1V4S:^9 


w 


lA 




Oi 


JH 


ED 


JF 




STA COMFl 




1050; OA 


OA 


S5 


F-F 


?n 


Al 


20 


B? 




DEC Ct»!l?2 




1058: KB 


AO 


EI 


00 


5A 


AB 


92 


ED 




BPh ENCORE 


rA fioufv^eai/ ies tjudCre jji^ines tjcctci 


t f> eft • d 


^ 


AO 
no 


2U 


L 


ir 


uv 






srt VtMii 










so 






E9 


SO 






20S9:20 


AI 


30 


CD 


38 




BBA lECFOIfST 






I'J'/U: Hb 


FA 


Ay 


UJ 


85 


EF 


2iS 


Al 






I07S:70 


sa 


A9 


00 


SR 


A 5 


EF 


A6 








1 9S0:EB 


A4 


ED 


54 


El 


00 


A3 


26 


INCAOSOU 


INC AOSOU 


/ X/JC r^^&.n t s +3 pi3 r c J e iii3S5t hhJucp tfe J '<jtrr^isp 


1<3SB:A3 


20 


A5 


FA 


DO 


03 


SQ 


Al 




BUE REH 




2 090 : 20 


C€ 


EF 


1 


F2 


A3 


03 


95 




INC ADSO'Jfl 




10S8:EF 


C6 




10 




ei 




SO 


RETi 




FA 


DC 


FA 


RTS 
























10A0:99 


Ee 


EB 


DO 


02 


E6 


EC 


€0 


INCADOES 


INC ADDBS 




3 9AS:E£ 


ED 


DO 


OB 


B6 


EE 


Ai 


EE 




HNf 


i'&f:r^n super Hi^ 


li)BU:C9 




DO 


03 


FA 




F3 


bO 




INC ADDEStl 






on 


00 


on 


00 


no 


00 


no 




LDA ADDES-tl 


-Vazlf is si S 'Qn n 'cjc p^s arrive J i« ^ i-i P^^* 


10CB:D2 


CF 


D3 


D<! 


cs 


CE 




AO 




CMP £Sc 


1 0C8:C4 


C5 








DO 




CJ 




ONE (iET2 




CJ 


CF 


CD 


CI 




/J^OiT ? ec feller: co,T£i;iucnj .' 








7 0d5:AA 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


FIJf 


FIX 


;C'est li.ti, on depiie pour recuperer 1 '^dresse de retour 


1 Ou8:aa 


AA 


AA 


AA 


AA 


AA 


AA 


AA 




SEC 




10E0:A8 


C3 


A9 


AO 


CA 


AE 


AO 


D2 




xcn 




I OES : C5 


D9 


AO 


DO 


B2 


AF 


B9 


D7 




DTS 




10F0:AA 


AA 


AA 


AA 


AA 


AA 


AA 


M 








1 DF8 :AA 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


ProDOS 





















Programme 

DEMO.DECOMPACT 

Puur utiliiet ce progr anifne de demotxslration, vtius <ievez avoir Sff 
la disquette 7 images graphiques type CSiPaim, snuvegardies sous 
ks nam . POMS I . P0MS2. P0MS3... P0MS7. Cat le can ,11 
"kous disposez la disqueite d'accompag/iemenl J,5 p&uces, HOOKo de 
Pc/m's. 

S^irjn Ic n</rribre d'iiruSges disponiblcs, modifier la Hgn^ 140 

5 REM J-J-J-J-J-***** Oejno Decorapact 
:0 TEXT : HOME 

1-0 D$ - CJIR$ (4) :TYPE$ - " , T$CQ , A$21QQ" 
25 PRINT D?"hloaddecGmpact.ohj,a$2Q00" 
€0 PRINT .- PRINT " Decompacteur d 'image 

s GS/Paint" 

10 PRINT " A- + ^ Jr^* * J: * + i- :^ 

'30 PRINT : PRINT " Paz J. Bey * Fevri 

e I /Mars 87 
65 SPBBD= 100: PRINT : PRINT 
'>0 PRINT "Nous allons voir apparaitze une s 

uite " 



100 
110 
120 
130 
135 



140 

150 

230 



240 



250 
2 60 



PRIMT "d 'images cr^ees aver. G.'^/Paint. p.t 
cela 

PRINT "sans 1 'aids du programing de- dess 
in . 

PRINT "La routine 'DScosnpact' pprme/: rf' 
utiliser" 

PRINT "CBS dassins A psrtir d ' un progra 
mme en print "hasic. " 

PRINT D$"bloadpomsl" ;TYPE$: CALL 6192: 
POKE 819J,lbl: POKE 49193,161: FOR T = I 

TO 2000: NEXT 

FOR X = 2 TO 7 

PRINT D$"bIosdFOMS"X;TyPE$: CALL 8193: 
NEXT 

FOR K = 1 TO 5000: NEXT ; HTAB 1: VTAB 
6: CALL - 958: POKE 49193,65: SPEED^ 2b 
5 

PRINT : PRINT : PRINT : PRINT : PRINT : 
PRINT "Pour recoramencer presseir 'Espace 
'": PRINT : PRINT "Pour quitter presser 

•ESC ",- ; GET R? 

IF R$ = CHR$ (27) THEN HOME : END 

GOTO 135 
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La souris FfaciCe I 

Main %aynaud 



Pour gdrer la souris, Apple 
propose actuellement deux 
metfiodes ; 

* en assembleur, en appelant dcs 
roLiimes placees sur la ROM cie la 
cane inierrace, 

• en Applesoft, avec des series 
complexes de PR#4 : PRINT 
CHR$(0) : PR#0... 

Aucune n'est totalement 
satisfaisante car elles exigent, de 
la part du progninimeiir, soil une 
parfaite connaissance du 6502, 
soit des acrobaties pour pouvoir 
gerer en Basic le moindre menu 
derniilant". 

Le programme propose ici offre 
la possibiliie d'utiliser en 
Applesoft des commandes 
structurees qui permeitent la 
programmatic n rapide d'appli- 
carions cnmplpxes urilis;int la 
souris. 

Les commandes 

Ces commandes utllisent I'dtemel 
vecteur de I'ampersand - ou 
esperluete pour les francophiles 
anglophobes - comme point 
fi'enttfte : 

5 INIT (MOUSE} 

debute oblii;atyirement toute serie 
d'instriictions utilisant la souris, 
et remet a zero les poinieurs 

6 CLOSE (MO USE } 
deconnecte la souris k la fin du 
programme 

S CURS (n) 

selectionne la forme du curseur 
graphique materialisant la 
position de la souris 

£ WAIT (PRESS) 

atiend que le bouton soil appuye 
pour rendre la main au 
programme, et continue d'animer 



le curseui' en aitendaiii 

£ WAIT (NOPRESS) 

idem mais attend que le bouton 
soit relache 

i WAIT (imW PRESS) 

idem mais attend une nouvcllc 
pression du bouton 

& WAIT (OUT [0,0 TO 
100, 100] } 

attend une sortie du cadre 
graphicjue defini par les deux 
puirus de coordonnecs 0,0 et 
100,100 

5 WAIT (OUT [0, TO 
100,100} OR PRESS) 

idem mais on rend 
immediatement la main si le 
bouton est activ^ 

6 WAIT (OUT [0,0 TO 
100,100} OR NOPRESS) 
idem mais on rend 
immcdiatcmcnt k main si le 
bouton est relacbe 

£ INVERSE (0,0 : LEN 
= 10,6) 

inverse la fenetre graphique 
dctcrmincc par Ic point 0,0 sur 
une longueur de 10 ncteLs (snit 10 
X 7 = 70 pixels) ct sur une 
hauteur de 6 lignes 

& DATA (X, Y, BUT) 

place respeciivemen: dans les 
variables X, Y et BUT : 
I'abscisse, I'ordonnee de la 
souris et I'^tat du bouton 
(O-relache, l=appuye) 

Execution du 
programme 

Le programme se charge par la 
sequence d'lnstructions suivunte : 

BLOAD SOURIS. C 
BI.OAD SETCURSOR . C 
BR UN INTERyACE . C 
BLOAD INVERSION.C 



sutvi dcs commandes; 

UGH -■ POKE -1 6302, 

pour aff idler la premiere page 
graphique en mode non-mixte. 
11 est recommand6 de placer 
HIMEM; a 36608 {$8F00) avant 
le chargemem de ces routines afin 
d'eviter leur ecrasement 
intempestif. 

L'ensemble des routines 
fonctionne sans modification 
sous environnement DOS 3.3 ou 
ProDOS. Les sources ont ete 
constitues avcc I'asscmblcur 
ProCODE. 

En revanche, pour minimiser 
I'occupalion memoire du 
programme, aucun controle n'est 
effectue pour verifier qu'il existe 
bien une souris en slot 4, si tel 
n'est pas le cas alors gare au 
plantage ! 

Occupation memoire 

$9000 

debut du fichier SOURIS, 
initialisation de la souris. 
appel de la routine en ROM 
correspondant au code d'appel 
$9200 

debut du fichier INTERFACE, 
interpretation des commandes 
Basic ct appel des routines des 
autres fichiers 

$94F0 

d^bui du fichier SETCURSOR. 
contient la table de formes 
(SHAPE'i Applesoft materialLsant 
la souris 

S95C0 

debut du fichier LWERSION. 
routine d'inversion de fcnctre 
graphique 

dehui du DOS 
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9 



Sept formes sont definies dans le fichier 
SETCURSOR ; 

Heche 

1 ciseau 
note de musique 
croix 
Ktyin 
crayon 
document 
feullle 



2 
3 
4 
5 
6 
7 

II vous ciit possible d'en definir d'uutres sous la 
contrainte d'espace memoire indiquee ci-desKUK. 
SETCURSOR place egalemetit aux adrcsses 2 er 3 ia 
position dc la forme scicctionnct. 

(A 



Programme SOURIS.DEMO 



5 

6 
7 

a 

9 
10 
20 
W 
40 
SO 

so 

ID 
80 
90 
}00 

uo 

120 
} W 
140 
200 
210 



7 i m 

70, 191) 
7 t U) 



PRINT CHR$ (4)"BL0AD SETCURSOR. C" 
PRINT CHR$ (4} "BLOAD SOURIS.C" 
PRINT CHR? (4)"BRUN INTERFACE . C" 
PRINT CHR$ {4) "BLOAD INVERSION. C" 
HGR : POKE - 16 302,0 
S, JNTT (MOUSE) 

CURS( INT ( Rm (U 
TNVF.Rr,K (0,0; J.F.N 
CVRS( INT ( RND (I) 
WAIT (OUT 1 0,0 TO 140, I '> If UH }-'RKi:rf 
I'JATA (X, Y, tilJTj 
JF BUT TWKW POD 
& INVERSE (0,0: LEN - 40,!':il) 
£ CURS( INT { RNU (!} * ! i I)) 
& WAIT (OUTI}40,0 TO 2/'^, 191} OR 
PRESS) 

& DATA (X, Y, iiilTi 

ItUT > THUN 200 
i iNVF.RF.i-: (0,1): l.l-IN 
CiOTO 40 

i cLOsy: (Moiir.f-:) 



40, i 'M J 



Source INTERFACE 
Assembleur ProCODE 



liS y'fjf .tlmtf -i' i itt ft f ni-.it/i- 't'' it 
^ f I.-, J Mil f I I 'tl-: : 

-1 turi' lt1i>itt:y) 
i ufl I ■;■ I rut::':-) 

itwflrrl'.'iitjti, II tr 

* I r fiJiJTjii, II I 

.llfrtfCf l-tst.:,:.) 

4 1 1 IK.'; f i; 

1, 1 ■ij>::y(Miiiiiit:t 

.u>/i ('fl ix, r, iiirn 



I, III 

: , I f i-Kt 
1,1' Wiirwt". '- J 





ORG 




souitis 


EQU 


S90JC 




LDA 






STA 






LDA 


lf<DE3UT 




STA 


S3F6 




IDA 


f^'DEaUT 




STA 


S3F7 




MCi" 






CMP 


fSBi 






UAITI 




CMP 






Ht:a 


ttiir 




CMP 






HKQ 


a.as^:} 




CMI' 


IISB3 




*f£? 






(W 






nt:u 






M'I'S 




M t r) 


./W' 


WA I r 




./MP 


IIA'J'A 


fl.oar.l 


.Wl' 




INI -1 


1,(11' 


lf>iN 




l.DX 


tt IN 






vt:u 1 r 




Ml 






.i:;h 






.mi' 


$H! 


INV 


.i:in 


$HS 




t w 


(• 




H«K 






.W« 


5HJ 




J.s'K 


WlHi f 




. ItlH 


$i-:lih- 




1.1 IA 


SA 1 




.■:-i\A 


l-AH 




i«K 






.IHH 






■IKH 


iy.ivr 




U>A 


1-fii 




^•.TA 


I'AH 1 1 




.i--,li 






.Mr 


1' :' 






;:N-r.\ 




.r:ii 






1 ■Ml- 


tftr 1 






.-.■ftrj-.v 






•nm 




■ ■Ml- 






Hur 








pf* 1 






?(i(>i> •■ 




ir.K 






J. DA 


SAl 




:n'A 


mtt.' 




- li:i^ 












. J-iK 






i.t''A 


>A 1 




•:ta 


'I'AH 1 1 




IA>A 


#■-'(■/! it 




ilTA 


91 




tJ)A 


l<TAH 




<'-:rA 


Sit 




•i.tit 












«■;■.*; 






.J.'W 


SHI 






t'll> 






run 




i./i y 


/f^ri. 




l.l)K 


t<(:i. 




JSH 


VKHII- 




Hrs 


SN'I'X •> 




l.fM 


SCI 1? 



.■suite cfe SOUHIS 



codtt tfc. DATA 



1. !• :.t1V 
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MA 1 V 



STA 










WX 


f<PR 


LDA 










JSR 


VERIF 


LDX 


i$c4 








acs 


SI 


LDY 


«$40 








LDA 


fO 


JSH 










JSR 


30UH1S 


JKP 


$B1 








JMf 


9U1 










Si 


LDX 


TAMP J 




SB) 








STX 


SB 8 


CMP 


H •[}' 








LDX 


TAMP2 


BH£ 


2NTXS 








STX 


$B9 


JSR 


SBl 








idjr 


t>NU 


CMP 


1 'S' 








LDX 


f<NO 


BNE 


SNTX5 








JSR 


VERIF 


JSfl 


■PS 3 








acs 


s? 


cut- 


re 








LDA 


tl 


JSH 




•* * 


CUHS in) 




jsn 


SOUI^IS 


JSH 


$DD6? 








JMP 


SB I 


JSH 


$i:Wc 






S2 


LDX 


TAMPl 


LDA 


SAD 








HTX 


SHS 


am: 


sHrx-t 








LDX 


TAMP2 


LDA 


SAl 








STX 


$B9 


JSR 


S94t:7 








jsn 


SS/ 


Jsk 


SBl 








twi* 


#SBr 


CM!' 


f) • 








am 


S3 


BNi: 


SH7Xi 








JSP 




JSR 


SB] 








LDr 


l>PH 


RTS 










LDX 


KPR 


JSH 


$B1 


/ i 


DATA (X, r, BUT) 




JSR 


VERlf 


fWC 


ft' 








acs 


SNTX2 


BW. 


SNTX i 








1£>A 


tb 


JSH 


$a] 








JSH 


SOUR IS 


JSH 










JMP 




I.UA 








SNTXl 


RTS 




S-I'A 


■I'AMPl 






Si 


LDX 


TAMPl 


im 


$y4 








STX 


$Be 


S-JA 


■lAMtP 








LUX 


TAMPi' 


JSK 










STX 


SB 9 


JSH 


SDFF.J 








WY 


l?0{/ 


UM 


SHJ 








I.DX 


f<tJ(J 


StA 


VAti 








ISK 


1/KH)*' 


LDA 


SS4 








ONt: 


SNTX? 


S-fA 


l AH f I 








JSR 


SBl 


JSH 


SHJ 








JSK 


smbf 


JSH 


$Dn: < 








JSR 


$t:iov 


U>A 


SH '< 








IJIA 


SAJ 


r.TA 


TAH'.' 








STA 


TAH 


i,DA 


^84 








LDA 


SflO 


arA 


T'AHi f 








STA 


TAH t I 


JSH 


sm 








JSH 




CHI' 


*•) • 








CMP 


' 


im: 


£N'rX4 








HNt' 


sm'x.i 


LOA 


f6 








JSH 




JSR 


sum IS 








JSK 


9DUt t 


LJJV 


SH 








JSH 


Si:J(!r 


J.S'H 


sn m 1 








tJ>A 


SAi 


LDX 


TAH 








STA 


TAHtJ 


un 


■fAH 1 1 








JSR 




JSH 










CMC 


tSCi 


LDA 










HNK 


SNTXt 


LIIY 










JSH 


$Hl 


JSH 










JSR 


StlDd f 


IJ)X 










JSH 


fi:lih' 


un 


TfiMV/ 








liUA 


fAl 


JHH 










STA 


TAB 1 i 


LI>A 


s/n- 








LDA 


$A0 


AHI> 


asm 








SfiA 


TAH 1 4 


CAT 










JSH 




JSH 


?KJ(J 1 












um 


TAtt t / 








my. 


$mxi 


(•fir 


•VAHi 1 








JSR 


Sfil 


JHH 










JSH 


so))* / 


JMf 


9HI 








JSH 




KT'5 










LDA 


iAI 












STA 


TAH 1 ■> 


JSH 


^al 








IDA 


TAH 


CMH 


t' !' 








UTA 




HNI-: 


SNTX2 








iJJA 


t>TAH 


JSH 










STA 


SJ 




fos 








JSR 


SH/ 


S'/'A 


lAMI'l 








CMP 


I- 1 ' 


wx 


$H9 








am: 


nfi'tx 1 


STX 


TAMI'2 








JSH 










unrrtPHyss) 









S MAlTtNOPRESSI 



i MtTtiiUTIU. i) TV MV, Wl) 
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CMP 


*•} ' 




BEQ 


CHI 




CMP 


i$CE 




BNE 


SflTXl 




J3R 


OBI 




LUX 


sue 




STX 


TXMPl 




WX 


SB9 




STX 


TJtMP2 




LDX 


KPR 




LDY 






JSS 


VERIF 




BCC 






LDX 


Tmpl 




STX 


$BS 




LDX 


TAMP? 




STX 






LDX 


KHO 




LDY 


i>Na 




JSR 


VERIF 




BCS 


sntkI 


L'H3 


LM 


t2 




JMP 


CALL 


Oil 


LOA 


a 




JMP 


CAI.L 


CHP. 


Lm 


t3 


CALL 


JBR 


sotmis 




JMP 


$Bl 


SNTXl 


RTS 




VERIF 


STX 


/U>H 




STr 


AD*^ 




STX 


Vl+1 




STY 


Vl+2 




i.nx 


JO 




JSR 


937 


AD 


CMP 


$200, X 




SHE 


FAUX 




mx 




VI 




s7na,.x 




BEQ 


OK 




JSR 






JMP 


AO 


OK 


CLC 






RTS 




FAUX 


SBC 






RTS 





Timpi 

TAMP2 



CL 



NO 
FP 



; coa'e <ie OR 



; on nOPRts3 

J situplsment ') ' 

1 ou PRESS 



HEX 00 
HEX 00 



ASC 
tit.X 
ASC 
HEX 
ASC 
ASC 
HKX 
ASC 
HEX 
DS 



' INJT (MOUSE} 
00 

' LOSE (MOUSE) 

00 

'WO' 

•PRESS) • 
00 

'OUT I • 
00 

€ 



Source SETCURSOR 
Assembleur ProCODE 



nar, S94FJ 

PDi E.QU SZ 

tiD2 EQU ADl tl 

* 00 : rieche • 



01 
QZ 
03 
04 
OS 
06 
07 



note de muslque 

croix 

stylo 

crayon 



Tl 



FLECHE 
CISEAUX 

NOTE 

CROIX 
STYLO 

CRAIOK 
DOC 



ASL 
TAX 
LDY 
LDA 
STA 
STY 
RTS 

DDB 
DBS 
DDB 
DDB 
DDB 
DDB 
nnn 

DDB 

HEX 
HEX 
HEX 
HEX 
HEX 
H€X 
HEX 
HEX 



niuitipJii==tJ«5n pa^ 



FEUJhLE HEX 



T1+1,X 
Tl. X 
AD2 
ADl 



FLECHS 
CISEAIlie 

mote 

CROIX 

STYLO 

DOC 

rF.vji.LE 

iU2Ult:3f37iO353f37^D0E0ET5Z7Z70500 
2E2E2E2E2E0tAE65E4FFlBJiF(iE7btbUiU4M32HZS 
201 7240600 

2E2D0c2r2 7202 57476} SP4P4 24aE0E2E3E2E3 E3600 
ZOB40A2DD733!ic02F0500 

49E40DFClCZD2DI4Z424?424Z4242^Z4l4i4ar9212 
242444633C3V'JEJbJiJtrJSJisS363€3e362600 
653r2C2DOC6464246r24273Fl 72£DEFSF636350!> 
2D0E2E?n:>ri^S.16:iS3£2F3F3F3F3F2 724242C45B32e 
200500 

363€3636362D2O2D2D252<2i243r27240E0EDC133F 
3Fa6l)0 



Source SOURfS 
Assembleur ProCODE 



Tirjrt*--r*-*)i-irr**»ir«n 



Progr-anmo d& g&stlon de sciiris 



* ***«tf*itlt*l! f: f It jt * * t 





ORG 


S9000 




EQU 


SC412 


SERVE 


EQU 


^C4L3 


READ 


EQU 


$C414 


CLEAR 


F.DI! 


SC4 15 


POB 


EQU 


SC^IS 


CLAMP 


EQU 


$C4n 


HOME 


t,au 


ic413 


INIT 


ESU 


$C419 


CADRE 


EOtf 




XI 


set/ 




X2 






r 


EQU 


?e 


XX} 


FjDU 


S2078 


XX2 


EQV 


$3079 


rrl 


EQU 




YY2 


EQJ 


S20/B 


F} 


EQU 


S2 






FJ+J 


XURAW 


KQU 


SfSOl'J 


POSXY 


EQU 


SF411 


SCALE 


EQU 


$E7 


BIT 




■?S5F0 


KES 




S3 SfS 


BIT2 




$95FA 


RES2 




SS5FB 



12 



Pom's n° 30 



COM = S95FC STA 

LDA 
STA 

FIRST LDA II ,- JriitlflJJi-aLion de SQurls XT3 

JSR CALL STA 

LDA US 01 STR 

LDX #«ET STA 

•JSR CALL / ejj fiivJt? pai'sii" STA 

LDA t<tJLt:filt i/Ufl 

JSR CALL ; remise a zero d^is eoordonness STA 

LDA to RTS 

STA Xl LF.CTIIRF fHX 

STA X2 JSR 

STA V LDR 

UTS ;tin de J ' Ijiltlailsatlon BEQ 

CMP 
HEO 

DEBUT PHA CMP 

JSR FhEOHBl SHE 

flA LDA 

ASL CMP 

7AY BCC 

IDA T2, Y XFAUX LDA 

LDX Tlll,r STA 

STA T2tl LDA 

STA T2*2 STA 

72 JSK COMO XOS LDA 

JMP LECTURE BEQ 

CMP 

■ri UDE COMO jordts poias tcrt / palds taLbis BNE. 

DDE COMl LDA 

DDE COM2 C«F 

DDB COM! f^CC 

DDB COM4 YFAUK LDA 

DDB VIMS STA 

DDB C0M6 LDA 

STA 

COMO LDA tSSO rOK Tnx 

STA BIT JSR 

STA BIT 2 LDA 

STA SES STA 

STA RES2 LDA 

LDA to STA 

STA COM LDA 

UTS STA 

COMl LDA t$80 LDA 

STA BIT STA 

STA BIT! ISF 

LDA to HOJ? 

SI A NfS LSR 

STA RES2 KOR 

STA crow LDA 

STS RF.a 

com:; LDA fsoo 

STA BIT LDi 

STA BIT2 LDA 

STA COM CMP 

LDA to BEQ 

STA RES BCS 

STA HESl JMP 

RTS SI LDY 

COM3 LDA IS9Q CLC 

STA BIT CMP 

STA BIT2 BEQ 

STA RES BCC 

STA RES2 JHP 

STA con 

fTS S3 LDY 

COMA LOA 10 XOA 

STA BIT cue 

STA air 2 BNE 

STA RES2 LDY 

LDA tSFF LBA 

STA RES CfjP 

STA COM JjitJ 

i<TS BCS 

COMS LDA fSCO JMP 

STA BIT S3 LS>1 

STA BIT2 CUP 

LOA fSeO BCS 

STA BES JMP 



RES2 

to 

COM 

to 

BIT 
BIT2 
RES 
RES2 

istf 

COM 
t<READ 

CALL fTs^d mouse 

XOK 

n 

XOK 

!!■ 

XFAUX 
SI IC 
tS2F 
XOK 
t2 

95 7C 
t^Zf 
S4 7C 
SSFC 

ycK 
il 

rfAux 

S4FC 
#3 7F 
YOK 

il 

«S /F 
SiFC 

t<pn.<: 

CALL 

S4 7C 

XXI 

$5 7C 

XX2 

$BFC 

YV2 

XX2 
XXI 
YYS 
YYl 
COM 
A? 

§z 

(CADRE) , y 
SI 

51 f^i iiiiperieui" a i'HJW 
R2 

n-s 

ICADSE) , y 

52 ;si mrerieui a YMAX 
R2 

tJ ,'/ns ts/iart E €>ri test^ X 

XX2 

( CADRE 1 , r 

S3 
iO 

XXI 

(CADRE), r 
SI 
S4 
R2 
tl 

(CADBEl, Y 

Si 

R2 



Pom's n° 30 



S4 



WY 14 

LDA XX2 
CMP (CADRE/ , 
BNE S5 
13 
XXI 

A2 



WA 
CMP 
BES 



BCC 



(CADRE) , f 
R2 



.'■ok 

; t ermine 



WEQ A? 
JMP^ R2 



Source INVERSION 
Assembleur ProCODE 

* 1 

F r 

' soF.e corzBsponiisfit aux ortets ' 

* I 

* delimitunt la 3one. • 



M 

A3 
AS 



LDA 
AND 
CMP 
BEQ 
LDA 
AND 
BEO 
JSE 
JSR 
JMP 



577C 

BIT 

RES 

RETOOR 

S7?C 

tS20 

AS 

FLECHEl 
PLECHE 



■ m A ^ A A ^ AAJiAAAAAA t, A * 



ORG 



t * i i i* ****** i 



tV},U : X t X a } • 

(Oi.i : r 

iOI,2 : L I lortQueur tie la gone J * 



HtrrouR 


LDA 






AND 


BIT! 




CMF 


!tE$2 




BNE 


A4 


K2 


JSR 


FLECHEl 




LDA 


XXI 




STA 


XI 




LDA 


XX2 




STA 


X2 




LDA 


YYl 




STA 


r 




CLC 






RTS 




CALL 


PTX 


C400*l 


C4W 


M>H 


$C4CD 




SIX 


Clfl 




wx 


fi^4 




LDY 


ts^o 


a 


JMP 


$C400 


FLECHB 


LDA 


XXI 




SJrt 


XI 




LDA 


XX2 




STA 


X2 




Lm 


YYl 




STA 


Y 


FLECHEl 


LDX 


XI 




LDY 


X2 




LDA 


Y 




JSR 


POSXY 




LDA 


11 




STA 


SCALE 




IDA 


ID 




LDY 


F2 




LDX 


Fl 




JUP 


XDRAW 



BO 



B2 





tl 


IDA 




WX 


to 


Lor 


io 


JSH 


^F41i 


LDY 


12 


LDA 


(01 . Y 


TAX 




LDY 


to 


LDA 


m, r 


TAY 




DEY 




WY 




LDA 




EOR 


tSFF 


STA 


<S2Si, 


DEX 




BNE 


B3 


LDY 


tl 


LDA 


m.Y 


'mx 




mx 




TXR 




STA 


(0}.Y 


LDY 




LDfi 


<0}, 1* 


TAX 




DEX 




BF.Q 


FTUT 


TXA 






io/, r 


JMP 


BO 


RTS 





Recapitulation 




95 00 


■.05 


SB 


05 


SETCURSOR. 


c 


9508 
9510 


'.37 
-.25 


2D 
27 


35 
27 






9518 


■.2E 


2E 


QE 


Apres avoir falsi ces codes st/ax 




9520 


lie 


FC 


B7 


moniteur. vous les sauvegarderez 


uar : 


9528 


■2B 


2€ 


20 


BSAVE SETCURSOR. C, A$94E7 , 


L212 


9530 


■20 


oc 


3r 






9538 


'24 


24 


24 






9540 


■2E 


IE 


36 


94E8:AA BC F5 94 BD F4 94 


35 


9548 


•D7 


33 


2€ 


34F0:03 84 02 60 95 04 95 


15 


9550 


■E4 


OD 


FC 


<3iF8:9'i ?F <iS 4< 95 4F 95 


77 


9558 


•24 


24 


24 



A3 


SD 


2D 


IE 


3F 


95 60 


134 


BF 


92 


12 


34 


24 


44 


S3 


3F 


37 


4D 


OE 


QE 


95 SS 


:3C 


37 


3E 


36 


36 


36 


36 


36 


06 


00 


2E 


2B 


ZE 


3S7Q 


:36 


36 


36 


36 


36 


26 


00 


65 


AE 


€5 


E4 


FF 


IB 


9573 


:3F 


2C 


2D 


OC 


64 


64 


24 


6F 




CD 


40 


43 


43 


9580 


:24 


SI 


3F 


17 


2E 


DE 


FS 


F6 


17 


24 


06 


00 


2E 


9583 


:36 


35 


00 


2D 


OE 


2E 


2D 


2D 


27 


2D 


25 


24 


24 


9590 


:35 


36 


36 


3E 


3F 


3F 


3F 


3F 


24 


OE 


OE 


2E 


3E 


9598 


:3F 


27 


24 


24 


2C 


45 


B3 


28 


00 


20 


B4 


OA 


2D 


95A0 


:2D 


05 


00 


56 


36 


36 


36 


36 


ca 


3F 


05 


00 


49 


95 AS 


:2D 


2D 


2D 


2D 


25 


24 


24 


24 


IC 


2D 


2D 


24 


24 


95330 


:3F 


27 


24 


OE 


OE 


DC 


18 


3F 


24 


24 


24 


24 


24 


95B8 


:3F 


06 


00 
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Recapitulation 
SOURIS.C 

Aprcs avoir saisi ces codes sous 
moniteur. vous les sauvegarderez par 

BSAVE SOURIS.C, A$3000, L512 

9000: AS 01 A2 19 20 CB 31 A9 
9008:01 A2 12 20 CB 91 A2 15 
9010:20 CB 91 A9 OO S5 06 85 
9018:07 85 OS 60 48 20 F.n <i1 
9020: 6B OA AS BS 35 90 BE 36 
90PR:9n 8E 30 SO 8D 31 90 30 
9030:43 90 4C CF 90 90 43 
903fi:57 90 6B 90 IF 90 91 90 
9040:A5 90 BB A9 80 8D fB 35 
W43:8D FA 95 8D F9 95 Bp FJ3 
90SQ:S5 A9 00 8U h'C 9i bO A9 
9053: SO 3D FS 95 8D FA 95 A9 
9060:00 8D F9 9b 8D FB 95 30 
90e9:FC 95 60 AS 30 SD F3 95 
90W:aD FA 95 8D FC 95 A9 00 
9073 SSD F9 95 3D FS 95 60 A9 
9080:80 3D F8 95 80 FA 95 80 
90S3:F9 95 90 FB 95 3D FC 95 
9090:60 A9 00 3D FB 95 8D FA 
9093:95 8D FB 95 A9 FF 8D F9 
90AO:95 8D FC 95 60 A9 CO 8D 
90AS;F8 95 8D FA 95 A9 SO 8D 
9OB0:F3 95 SO FB 95 A9 00 8D 
90B8:FC 95 GO A9 00 8D F8 95 
90C0:8O FA 95 SD F9 95 SD FB 
DOCS: 95 f{9 FF SD FC 95 60 A2 
9OD0:14 20 CB 91 AD 7C 05 FO 
90D0:19 C9 01 FO 15 C9 02 DO 
90EO:07 AD 7C 04 C9 2F 90 OA 
90E8:AS 02 8D 7C 05 AS 2F SD 
9DF0:7C 04 AD FC 05 FO 15 C9 
9CF8;01 DO 07 AD FC 04 C9 7F 
9100:90 OA A9 01 8D FC 05 A<i 
S103:7F 80 FC 04 A2 16 20 CB 
9110:91 AD 7C 04 8D 78 20 AD 
9118:7c 05 do 79 20 AD FC 05 
9120:90 7B 30 AD FC 04 8D 7A 
9128:20 4E 79 20 tK ftS 20 4E 
91 ^0:78 20 6E 7A 20 AD FC 95 
9138:F0 37 AO 02 AU 7 A 20 Ul 
9140:00 FO 05 BO 03 4C 37 91 
9148:A0 Ob 18 DJ 00 FO 05 90 
9250:03 4C B7 91 AO 01 AD 79 
9158:20 Dl DO DO OE AO 00 AD 
9150:78 20 Dl 00 FO OE DO OC 
9168 :4C B7 91 AO 01 Dl 00 BO 
9170:03 4C 07 91 AO 04 AD 79 
9178:20 Dl 00 DO 03 AO 03 AD 
9130:78 20 Dl 00 FO OB 90 09 
9188:01 00 90 05 FO 03 4C B7 
9130:91 AD 7C 07 2D FS 95 CD 
9198:F9 95 FO 10 AD 7C 07 29 
91A0:20 FO 06 20 EA 91 20 Vti 
aiA8:ai 4C CF 90 AD 7C 07 2D 
91B0:FA 35 CU Fb 95 DO E5 20 
91B9;EA 91 AD 78 20 85 OS AD 



91C0: 73 20 85 07 AD 7 A 20 85 

91C8:08 10 CO 3E CF 91 AE 00 

91D0:C4 SE 09 91 A2 C4 AO 40 

91D8:4C 00 C4 AD 78 20 85 06 

91E0:AD 79 20 35 07 AD 7A 20 

91E8:85 OS A6 06 A4 07 A5 08 

91F0:2Q 11 F4 A9 01 85 El A9 

91F8:Q0 fiA 03 02 4C 5D F£ 



Recapitulation 
INTERFACE.C 

AprM avnir x/iiai cm cfydf^ sniis 
monueuT, vous les sauvegarderez par : 
BSAVE INTERFACE. C, A?9200, L739 



9?00:A9 


4C 


SD 


F5 


03 


A9 


in 


SD 


9208 :F6 


03 


A9 


92 


SD 


F7 


03 


60 


9210 :C9 


B5 


FO 


11 


C9 


4 9 


FO 


16 


921H:C9 


43 


FO 


OF 


C9 


33 


FO 


08 


9220 :C9 


9E 


FO 


19 


60 




S9 


93 


9228 :4C 


F2 


92 


4C 


AO 


92 


AO 


94 


9230 :A2 


B7 


20 


3F 


94 


BO 


SD 


20 


9238:00 


90 


4C 


Bl 


OO 


20 


Bl 


00 


9240 :C9 


28 


DO 


EO 


20 


31 


00 


20 


9248:67 


DD 


20 


OC 


El 


A5 


Al 


8D 


9250:DD 


94 


20 


Bl 


00 


20 


57 


DD 


9258:20 


OC 


El 


A5 


Al 


SD 


DE 


94 


9260:20 


07 


00 


C9 


3A 


DO 


no 


20 


9268:81 


00 


C9 


E3 


DO 


86 


20 


Bl 


9270:00 


c$ 


DO 


DO 


AF 


20 


Bl 


00 


9278:20 


67 


DD 


20 


OC 


El 


A5 


Al 


9230:80 


DF 


94 


20 


Bl 


00 


20 


67 


9288 :DD 


20 


OC 


El 


A5 


Al 


3D 


EO 


9290:94 


A9 


94 


85 


01 


A9 


DD 


S5 


92 98 : 00 


20 


CO 


95 


4C 


ai 


00 


SO 


92A0:20 


Bl 


00 


C9 


55 


FO 


IB 


AO 


92A8 : 94 


A2 


C3 


20 


8F 


94 


BO 


EF 


92B0 .-AD 


12 


C4 


80 


BD 


92 


AS 


00 


92B8:A2 


C4 


AO 


40 


20 


00 


C4 


4C 


92C0:B1 


00 


20 


Bl 


00 


C9 


52 


DO 


92C8:D6 


20 


Bl 


00 


C9 


53 


DO 


CF 


it2DU:20 


Bl 


00 


C9 


28 


20 


Bl 


00 


92D8:20 


€7 


DD 


20 


OC 


SI 


A5 


AO 


92E0:D0 


OF 


A5 


Al 


20 


E7 


94 


20 


92EB:B1 


00 


C9 


29 


DO 


03 


20 


31 


92F0 : 00 


60 


20 


Bl 


00 


C9 


28 


DO 


93F8iFa 


20 


Bl 


00 


20 


B3 


DF 


A5 


9300:83 


8D 


B5 


94 


A5 


84 


3D 


36 


9309:94 


20 


Bl 


00 


20 


E3 


DF 


A5 


9310:83 


8D 


DD 


94 


A5 


84 


8D 


DE 


9318:94 


20 


Bl 


00 


20 


B3 


DF 


AS 


9320:83 


8D 


DF 


94 


AS 


84 


8D 


EO 


9320:94 


20 


B7 


00 


C9 


29 


00 


Cl 


933Q:A9 


06 


20 


IC 


90 


A4 


08 


20 


9338:01 


E3 


AE 


DD 


94 


AC 


DE 


94 


9340:20 


2B 


EB 


AS 


01 


A4 


06 


20 


9348:F2 


E2 


AE 


B5 


94 


AC 


B6 


94 


9350:20 


2R 


m 


AD 


7C 


07 


29 


80 


3358: AS 


20 


02 


E3 


AE 


DF 


94 


AC 


93e0:E0 


94 


20 


2B 


EB 


4C 


Bl 


00 


93€8:S0 


20 


Bl 


00 


C3 


28 


DO 


F8 


9370:20 


Bl 


00 


Af 


B3 


8E 


85 


94 



9378 :A6 


B9 


8E 


B6 


94 


AO 


94 


A2 


9380:01 


20 


8F 


94 


BO 


00 


A9 


00 


9383:20 


IC 


90 


4C 


Bl 


00 


AE 


B5 


9390:94 


86 


B8 


AB 


B6 


94 


86 


B9 


93 98: AO 


94 


A2 


CF 


20 


8F 


94 


BO 


93AO;08 


A9 


01 


20 


IC 


30 


4C 


Bl 


93 A8 : 00 


AF. 


R5 


94 


flfi 


88 


AE 




9330 : 3«i 


86 


B9 


20 


37 


00 


C9 


BF 


93m:no 


15 


20 


Rl 


no 


AO 


94 


A2 


93C0:t}l 


20 


6F 


54 


BO 


A2 


A9 


05 


93C8:20 


?r 


90 


4r 


ni 


no 


60 


AE 


33D0:B5 


94 


86 


B8 


AE 


B6 


94 


36 


93D8:S9 


AO 


94 


A3 


DS 


30 


SF 


94 


93E0:D0 


86 


20 


Bl 


00 


20 


6/ 


DD 


93E8;30 


OC 


El 


AS 


AJ 


BD 


DD 


94 


93F0:Ab 


AO 


HD 


DE 


94 


20 


B7 


00 


93F8:C9 


2C 


DO 


D3 


30 


Bl 


00 


30 


9400:6 /• 


DD 


20 


OC 


El 


A5 


Al 


8D 


9409 :DF 


94 


30 


B7 


00 


C9 


Cl 


DO 


9910: !D 


20 


Bl 


00 


20 


67 


DD 


20 


9418 sOC 


El 


A5 


Al 


80 


EO 


94 


A5 


9420: AO 


8D 


El 


94 


20 


B7 


00 


C9 


9428 :2C 


00 


S3 


20 


Bl 


00 


20 


67 


9430 :DD 


20 


OC 


El 


R5 


Al 


SD 


E2 


9438:94 


AO 


DD 


as 


00 


A!> 


94 


65 


9440:01 


20 


37 


00 


C9 


5D 


DO 


46 


9448:20 


Bl 


90 


C3 


23 


FO 


32 


C9 


9450 -CE 


DO 


3B 


20 


Bl 


OO 


A6 


B3 


9458: SB 


35 


94 


A6 


B9 


BE 


B6 


94 


9460 :A2 


Dl 


AO 


94 


20 


8F 


94 


90 


9468: ID 


AE 


35 


94 


86 


B8 


AE 


B6 


9470:94 


86 


B9 


A2 


CF 


AO 


94 


20 


9478 :8F 


94 


BO 


12 


A9 


02 


4C 


88 


9480:94 


A9 


04 


4C 


88 


94 


A9 


03 


9488:20 


IC 


90 


4C 


Bl 


00 


60 


SE 


9490 :A1 


94 


ac 


A2 


94 


BE 


A7 


94 


9498:8C 


A8 


94 


A2 


00 


20 


B7 


00 


94A0iDD 


00 


02 


DO 


OE 


E8 


BD 


CO 


94A8:02 


FO 


06 


20 


Bl 


00 


4C 


AO 


94B0:94 


18 


SO 


38 


60 


00 


00 


49 


94li8:4E 


43 


54 


28 


40 


4F 


55 


53 


9400:45 


29 


00 


4C 


4F 


53 


45 


33 


H4C8:4D 


4F 


55 


53 


45 


23 


00 


4E 


94D0:4F 


50 


52 


45 


53 


53 


39 


00 


94D8:4F 


55 


54 


5B 


00 


00 


00 


00 


94E0 : 00 


00 


00 













Recapitulation 
INVERSION, C 

Apres avoir saisi ces codes sous 
moniiear, vous les sauvegarderez par : 

BSAVE INVERSION. C, A$ 9SC0, L5(. 



95C0:A0 01 Bl 00 A2 00 AO 00 

95C8;20 11 F4 AO 02 Bl DO AA 

95D0:A0 00 31 00 A8 8Si C8 Bl 

35D8:26 9 9 FF 91 26 CA DO F6 

95E0:A0 01 31 00 AA EM HA <i1 

35ES:00 AO 03 Bl 00 AA CA FO 

BSFO:oe a A 91 OO 4C CO 9S 60 



Pom's 11° 30 



Humeur... 

...ou plut6t mouvaise humeur ! Pom's publle suffisamment 
de sources ecrits avec I'assembleur ProCODE pour ne pas 
Gtre soupijonne d'o priori defavorable... Bien que dote de 
quolites, bien qu'assemDiant sans problSme, bien que 
geront plusieurs fichiers en memoire, bien que produit 
fron^ais, ProCODE est ergonomiquement affiioeant : 

impossible d'annuicr uno suppression de ligrie involontaire, 
impossible de supprimer dlrectement la derni§re ligne, 
impossible d'inserer une ligne ovont la premiere (II faut io 
dupiiquer), 

Facile de sauvegorder un ficlnier en ecrasant un ancien 

portant le mdme nom (pourtont ProDOS permet de sovoir 

oisement si un fichier existe dej^i : pourquoi no pas 

prevenir I'uTiliscteur,,,), 
Faciles les erreurs dons les noms de fichiers : la soisie n'eat 

pas controlee. 
Facile de tout perdre : on vide la mfemoire sons proposer ou 

prealable la sauvegorde, 
impossible d'imprimer sans ossembler (ogreoble en cours 

de conception lorsque toutes les etiquettes ne sont pas 

definies...), 

Oblige de sortir du programme pour changer le port de 

I'imprimante, 
Impossible de sauvegorder sous le nom 

/UNiDlSK3.5/FlCHtER3 COr on ne pSLrt deposser 15 

coract^res ; oblige de definir un prefixe, 
Impossible de deverrouiller un fichier : I'option supprimer s'en 

trouve iimitee,,, 

Bientot une version ogreoble d utiliser ? 



Mathematiques, 
Physique et Basic^ 

par Thierry Robin, 
Editions Ellipses 
156 pages 

Apr&s une vingtaitie de 
pages generales sur I'infor- 
matique et le Basic, puis une 
quarantaine de pagc^ sur 
I'analyse numerique, I'au- 
teur montre toinmenL 
lesoudre, a I'aide de 
programmes en Basic, 35 
probl&mes scientifiques, 
dont des problemes du 
concours d'entree a I'X. C'esl 
dire que la lecture de ce 
livre, pour interessante 
qu'elle soit, risque de rebuter 
ceux qui n'ont pas de bonnes 
bases math^matiques. Le 
titre esl d'ailleurs un peu 
trompeur : a de rares 
exceptions pres, il s'agit de 
problemes de mathema- 
tiques. Le livre est clair et 
bien fait ; il aurait toutefois 
gagne a etre prescntc avec 
des listings utilisant des 
indentations. 



Reliures Pom's 

Pour la protection de 
votre precieuse 
documentation, pour 
en fac inter !a 
consultation, pour 
rendre ogreabie la 
recherche d'un CALL ou 
d'un PEEK egare... 



Crypt age,.. 



Erratum 



Une erreur s'esi giissee dans I'article d'accompagnement de la 
commands externc 'KRUPTOS' du precedent numero. Cryptage at 
dccryptage s'ohtiennent par la commande : 
CRYPTS aom fic/iier, clef [,S n° elot] {,D u" dirii^sj 
On puuvail k deduire par la lecture de la fin du source. Ceci n'a pas. 
empkhi trois lecteurs de decouvrir h def de. cMage du fichier 
'SECtitr : «RM,7» ; le bit de poids fort, toupurs identicjut bur /ts 
fichiers AppkWritcr, etait un indice non ncgligeable, bravo. 




reiuires tollees bordeaux, logo Pom's, pour 6 numeros 
60,00 F TTC franco, bon de commande page 74 
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MuCtiScriBe 2.0 

Zln traitement cCe te?(tes en ^^KQ% 
Bernard ^omeno 



MultiScribc toume sur Apple //c 
128Ko, //c et riGS. 11 fonctionne 
sous ProDOS, en double haute 
resolution graphiquc, avcc ou 
sans souris et use largement des 
fen&tres et menus deroulants : 
bref, un vrai programme 
Macintosh mais sur Apple //, ce 
qui est une belle performance. 

Bien sur, les affichages, la 
rapidite de reaction, le 
dejoulement des menus gagnent 
en agrement sur le lies. 

Le programme occupe les deux 
faces d'une disquette 140Ko qui 
doit rester en ligne, car le systeme 
a reconrs au disque pour changer 
de police de caracteres, siocker 
un 'copier', etc. 

Pour plus de confort, la souris et 
deux lecteurs de disquettes sont 
souhaitablcs, L'cnscmblc des 
fichiers gagne -i etre places sur 
une disquette 8OOK0. 

L'utilisation est particulierement 
intuitive : MultiScribe est une 
replique fidele du traitement de 
textes MacWrite disponible sur le 
Macintosh, l.es conventinns 
d'ergonomie adoptees sur cette 
machine ont ete fidelement 
respectecs. 



La typographic 

Ce qui fait la force et la beaute de 
MultiScribe : dix polices de 
caracteres cn proportionncl dont 
Tin^vitable Gothique. L'utilisa- 
teuT en cree autani qu'il le 
souhaite grace ^ I'^diteur Uvre sur 
la meme disquette. 
Pour chacune d'elles, il est pos 
sible de definir 5 tailles de 
caracteres et 10 styles de 
presentation (voir Texemple). 
Chaque type de police, taille et 
style peut etre choisi avant d'etre 
utilis6 ou bien redefini a 



posteriori sur un texte deja. 
existant (qui a pu etre cree a I'aide 
d'Applewuri, Episiole Apple 
Writer, etc). 

Fonctionnalites 

On truuve sur MultiScribe les 
classiques fonctions de definition 
de marges (droite ei gauche), 
justification (droite, gauche, 
totale, centree), espacement de 
lignes variable, chercher et 
remplacer, couper/copier/coller, 
II faut aussi noter les possibiliies 
de definir des hauts et bas de 
pages automatiques (pouvant 
inclure date et heure si vous avez 
la carte horloge), une 
numerotation automatique des 
pages, I'insertion de saut de 
pages... 

Le deplacement dans le texte 
s'obtient par la touche 0> ou 
C)<, Gchiffre (comme dans 
Applework ) ou a I'aide de la 
souris et du classique ascenseur 
lateral. 

Environnement 

On peut choisir son interface (45 
propositions, scries ou parall61es) 
et son imprimante (1 1 machines 
dont IniageWriter, DMP, Epson 
FX, RX et MX, Okidata 92IBM, 
92STD, Scribe, Brother) et 
gauvegarder ce choix sur disque. 
On peut aussi definir son format 
dc papier (4 possibilites, la plus 
utile en France ^tant Fanfold 
Intemadonal). 

Les textes peuvent etre 
sauvegard^s sur tous suppons 
(merci ProDOS), sur 5 1/4 ou 3 
1/2, disque dur, ou disque virtuel 
volatile, ceci en format 
MultiScribe ou en format TEXT 
(ASCII). II existe des options 
pour formater une disquette et 
d^truire un fichier. 



L'impression 

Cinq qualitcs d'imprcssion papier 
sont offertes, de plus en plus 
noiies ci lisscs, Ic temps 
d'imprcssion croissant avec la 
qualitd, plus une quality couranie 
non graphique, plus une 
visualisation a I'ecran avant 
d'imprimer. Pour la mcillcure 
quality, la tete d'impression passe 
quatre fois sur la nieiiie ligne, 
II y a la possibilite de choisir le 
feuille a feuille ou le papier 
continu, Timpression totale ou 
partielle d'un texte, l'impression 
de plusieurs documents chaines, 
la nura^TOtation automatique des 
pages. 

L'editeur de 
polices 

D'une fort belle presentation, il 
permet de creer ses propres 
polices, ou de modifier celles qui 
sont sur la disquette (francisaiion 
facile dc certains caracteres 
typiquement amMcains, creation 
de lettres acceiituees, de 
symboles scientifiques, ou meme 
de peiits logo ou dessins divers 
uommc ^ par exemple). 

Options 

Pour quelques dollars de plus 
vous pouvez acheter des 
"options" : 

• Accessoires de bureau type 
Macintosh (horloge, calen- 
diicr, calculette. . .) ; 

• Jeux de polices de caracteres 
supplementaires ; 

• 'Picture Manager' pour mc- 
langer 

dessins et texte ; 

• Correcteur d'orthographe (in 
english, sorry...). 
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Points forts, regrets 

Au chapitre points forts, on 
trouve la qualite de rergonomie et 
dc la presentation a I'ecran 
graphtqiie, les nombreuses 
possibilitds dc typographic ct 
d'impression, le couper/coller, 
I'ouvenure dcs fithicrs par une 
fenetre de selection : nul besoin 
de se rappeler I'orthographe 
exacte des nora de fichiers. 
Les menus d6roulants dispensent 
I'utilisateur de se rappclcr la 
syntaxe de telle on telle fonction : 
le menu et la fenetre de 
remplacement sont plus plaisants 
que : 

CTRL-F %§pari3%§Paris%a... 

Rien n'etant parfait (quoi que..,) 
en ce bas monde, on pent 
regretter : 

• I'absence de glossaire ; 

• les possibilic^s irbs llmit^es de 
melanger plusieurs textes ou 
Iragments de texte & i'6cran (on 
aniionce une version Eos qui le 
pourrait) ; 

• rimpossibilite de sauvegarder 
suT disque les informations 
concernant le format du 
papier ; 

• I'impossibilite d'annuler la 



demi^re commande ; 
• I'absence d'un WPL, ce 
langage d'AppleWriter qui 
permei d'automatiser les 
commandes repetitives, faire 
des mailings, etc. 

Dernier probleme : sur un Apple 
//e avec Carte Feline, MuhiScribe 
ne fonctionne pas (illisibilite h 
cause d'uu probleme d'affichage 
en double haute resolution). 
Don'i panic... la solution est h. la 
fin de ce papier. 

Commercialisation 

MultiScribe est vcndu par 
Styleware inc. (5250 Gulfton 
suite E, Houston, Texas 77081) h 
un prix defiant toute concurrence 
(60 dollars). II suffii d'ecrire en 
precisant son numero de carte de 
credit et la date d'expiration : 15 
jours apres, MultiScribe est chez 
vous avec un manuel clair et bien 
presente. 

La disquette n'est pas protegee 
comme bien des softs americains 
aujonrd'hui : mais MultiScribe est 
si bien fait et si bon marche qu'on 
ne doit pas avoir envie de le 
copier pour les copains. Ceux qui 
Ton ecrit m^ritenl uii coup de 
chapeau et notre honnetete. 



Recette pour un 
Apple //e avec 
carte Feline 

Avec la disquette ARLEQUTN, 
cr&z une disquette SYSTEM 
(elle contiendra done PRODOS, 
ARLEQUIN.SYSTEM qui est un 
Basic ameliore, ainsi que les 
fichiers GLIDATA. GLllfi-2, 
GLI.ERRORS, IWIICOLOR- 
COPY) et donnez lui le nom de 
/MULTISCRIBE. 
Sauvez y un STARTUP ainsi 
congu : 

10 D$ = CRR$(4) : PRINT D$ 
"PREFIX/MULTISCRIBE" 

20 i BACK (17) : S. mNDOW 
( 0, 19, 0, 191, 1 ) : i MO 
DE (1) : S SETVAR ( 50, 
16 ) :S DISPLAY (9) : P 
ORE 49234, : PRINT D$ 
"BLOAD MS .SYSTEM, TSYS, 
A$2000 " 

30 £ DISPLAY ( 1 ) t CALL 

9192 

Puis recopier sur la disquette le,s 
fichiers de la face 1 du disque 
MULTISCRIBE, et au verso 
ceux de la face 2. C'est tout. 

a 



miiUDSSaDBffl SuS Ouclqucs rossibiiifes d'un 
ti'aitement de fesctes en lIHGR 

Dix polices de caract^rpe mixables 3 I'lnterieur d'un meme texte sans 
perdre la jU5tif ir ation totale. y compns auec le §. Dix polices de 
caracteres mixables a I'interiHur d'un meme teHte sans perdre la 

justification totaic, y compi-is aM«c le § Dix poUces de caracUres 
imxables A rint^neur d'un meme tex,t& sano pe-rdre= Lo 
tmistlf icntion total s, ij compris nv^t; li? e. Biw 
polices de aaracsteres minables a I'interieur d'un 
meme t^xte «arvs5 per&re la iUiSttf £cat£<)n totals, y 

Un caractere peut etre standard, qraw, ffafftftr^ , aQU li qne > 

Q[iaG)y(3, [PBDBtsff, i i. ii FJu.#j . *-"p°=^^"V double hayteur, 

cJ *3 u t* I i:^r^^^w^. Cwa^ differ^nta; arguments sont 

compatibleac entre-euH .tfuiZA^ x/a/jJ<Mfce xtiMiim a d , 
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un outiC^rapfiupie 

%pCandJost 



La double haute resolution 
graphique permet de 
disposer de 560 x 192 points 
sur un Apple //c ou un //e 
avec mdmoire etendue a 
128Ko. Mais I'Applesoft ne 
presenle aucune facilite 
pour son acces et son 
utilisation reste delicate. 

Une image DHGR reside entre 
$2000 ct $3FFF en mcmoire 
principa!e et entre S20f)0 et 3FFF 
en memoire auxiliaire, occupant 
16K:o de MEV. Toutes les 
colonnes paires de I'ecran 80 
colonnes correspondent a la page 
auxiliaire, toutes les colonnes 
impaires a la page principale. 
microprocesseur de I'AppIe ne 
pouvant adresser que 64Ko, 
Facets a la memoire auxiliaire ne 
peut se faire que par 
I'intermediaire de bascules 
logicielles, 

Chargement et 
sauvegarde 
d'images DHGR 

II est pos.sihle de stocker une 
image DHGR dans deux fichiers 
de 8Ko chacun, correspondant a 
la page graphique 1 cn mcmoirc 
principale et la page grapliique 1 
en memoire auxiliaire (Cf les 
images de Purplesoft), 

Dans cc cas, Ic chargement sc fait 
en deux fois : une image est 
charg^e en m6moiie principale, 
puis transferee dans la page 1 
auxihaire en utilisant la routine 
AUXMOVE. Le deuxieme fichier 
ej?t aiors charge en page 1 de la 
mcmoirc principale. 

DhgrTool simpiifie le processus 
en chargeant directement I'image 
en memoire auxiliaire ^ partir du 
disque, sans passage par la 
memoire principale. 



II parait plus logique de sauver 
I'imagc DHGR dans un fichier 
unique. Pour cela, Dhgrfool 
transftre la page 1 auxihaire en 
page 2 principale et I'image est 
sauvegardee par copic dc 
I'ensemble des 2 pages HGR 
principales sur le disque {bsave 

IMAGtl, A$2000, 1j$3FF8). 

Le fichier comporte 33 blocs sous 
ProDOS ou 67 secteurs sous 
I30S '^3. Ije. processus, inverse a 
lieu au chargement : la page 
HGR2 principale est transferee 
dans la page 1 auxiliaire. 

Tous les veterans de I'Apple 
disposent d'images graphiques 
simple haute resolurion. Celles-ci 
pcuvent etre converties dc deux 
fagons : 

• deux images HGR combin^es 
en une image DHGR : on 

charge successivement chacune 
des images HGR en page 2 et le 
sous-programme hghdhgr 
transfere chacune des 40 
colonnes altemativement en page 
1 auxiliaire et 1 principale. 
CALL m , transfere la premiere 
image 

CALL HI , 20 la deuxieme 

• conversion d'une image HGR 
en image DHGR : le 

sous-programme dblhgr dupU- 
que horizontalement chaque point 
de i'image HGR, Chaque octet de 
I'image initiale donne deux octets 
dont I'un est charge en 1 
auxiliaire ct I'autrc cn page 1 
principale. 

Manipulation 
d'images DHGR 
par DhgrTool 

1 — afficher une image 

Les operations suivantes sont 
necessaires : 

- ddconnecter AN3 par lecture de 
I'adresse 49246 



- deconnecter ALPZP par POKE 
49160,0, qui permet de 
commuter uniquement entre les 
adrcsscs $2000-$BFFF 

- passer en mode 80 colonnes 
par POKE 49165,0 (80 COL 
ON) 

- deconnecter TEXT en peekant 
cn 49232 

- pf.p.ke.r en 492:^9 (HIRES ON) 
pour activer le graphisme haute 
resolution 

- peeker en 49234 (MIXED 
OFF) pour avoir acces k la 
totalite de i'ecran. 

2 — effacer I'image 

- effacer la page 1 par le HGR 
classique 

- commuter la page lA 
(auxiliaire) par POKE 
49237,0 (PAGE2 ON) 

- effacer la page lA par CALL 
62450 

- revenir en page 1 par POKE 
49236,0 (PAGE2 OFF). 

3 — negatif de I'image 

Le programme assembleur 
effectue un eor $ff sur tous les 
octets de la page HGR 1 
principale ct dc la page 1 
auxiliaire 

4 — sauvegarde en 
memoire auxiliaire et 
rappel 

Une image peut 6tre sauvee dans 
la memoire auxiliaire cn 
$40nn"7FFF ou SSOOO-BFFF. 
Lc sous -programme transfer! 
permet les deplacements 
suivants : 

Pour le transfert de 2 pages 

CALL TRANSFERT, 2, 2 

2A vers 1 ; 3 A vers lA 

CJLLL TPANSFERT, 3, 2 

1 vera 2A ; lA vers 3A 

CALL TRANSFBRT, 4, 2 

4 A vers 1 ; 5 A vers 1 A 

CALL TRANSFERT, 5, Z 

1 vers 4A ; lA vers 5A 
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Pour le transfert d*une 
seule page 

CALL TRANSFERT, 0, 1 

lA vers 2 

CALL TRANSFERT, 1 , 

2 vers lA 

Pour les deux demiers cas, 
I'appel a TRANSFERT doit etre 
precede d'un poke 4 9152, (80 
STORE OFF) et suivi d'un poke 
491 53,0 {80STORE ON). En 
effet 80STORE ON a prioritt; sur 
les commutateurs RAMRD et 
RAMWRT utilises par AUX- 
MOVE pour realise! le transfert. 

D'autres possibilites peuvent etre 
nbtenues en compl6tant ou 
modifiant les tables DEBUTl, 
FINl, NOUVl, DEBUTl, 
F1N2, N0UV2 (lignes 259 k 264 
dans le source) 

5 — n^gatif d'une moitie 
d'image 

On peut inverser la moitif gauche 
ou la moitie droite. DHGRTOOL 
ne propose que Tinversion de la 
partie gauche. Four inverser la 
partie droite faire d'abord un 
negatif de tome Timage, puis 
inverser la partie gauche. 

6 — echange des moities 

gauche et droite 

Interessant lorsqne. Fimage 
DHGR a cte obtenue k partir de 
deux images HGR normales, ou 
pour des effets speciaux. 

7 — copie d'une moitie 
dans Tatitre 

8— effet de miroir 
horizontal) 

DHGRTOOL.O 

Toutes ces operations sont 
effeciu6es par le programme 
Assembleur DHGRTOOL. qui 
est base stir I'utilisation de la 
ruutinc auxmove et sur les 
commutateurs fagb2 on et 
PAGE2 OFF (qui permetrent de 
travailler respectivenient sur la 
page 1 ou la page lA). 

La routine AUXMOVE 

AUXMOVE permet le transfert 
de blocs de donnees entre la 



memoire principale et la memoire 
auxiliaire, dans les deux sens. 
File est in.stallee dans I'espace 
memoire $C3O0-SC3Fr et 
commence en $C31 1. 

Comme la routine MOVE du 
monireur , elle utilise les adresses 
$3C - $43 pour delimiter la zone 
a transferer et I'adresse d'arrivee. 

SiC AIL octet bas de Tadresse 

dc debut du bloc ^ transferer 
$3D AlH octet hautde I'adresse 

de d6but 
$3E A2L octet bas de Tadresse 

de fin de la zone -i transferer 
S3F A2H octet haut de I'adresse 

de fin 

$42 A4L octet bas dc I'adresse 

d'arrivee 
$43 A4H octet haut de Tadresse 

d'arrivee 

De plus , c'est la valeur de la 

retenue qui determine le sens du 
transfert ; 

C=l : memoire principale vers 
memoire auxiliaire 

C=0 : memoire auxiliaire vers 
memoire principale 

Le commutateur PAGE2 

En mode HGR normal, PAGF.2 
pennei I'acces a la page HGR 2. 
En mode 80 colonnes et double 
haute resolution, et lorsque 
80STORE est actif, un poke 
4 9237, permet au processeur 
d'adresser la page lA , alors 
qu'un POKE 4923 6, permet 
I'adressage de la page L 

Implantation des divers 
programmes 

$6022 N6gatif de la page DHGR 
$6047 Renverse I'image DHGR 
(miroir) 

$6099 HGR^DHGR ; dilate 

tine image HGR 
$60E3 deux images HGR 

placees c6te k cote utilise le 

sous-programme 

CALCADR et les tables 

TABlLeiTABlH 
$6186 echange les deux moities 

rie I'image DHGR 
$61D2 copie la moiti6 gauche 

dans la partie droite 
$6216 copie la moitie droiie dans 



la moitie gauche 
$625C ndgatif de la partie gauche 
$626F negatif de la partie droite 
S62Ar transfert de pages 

graphiques 
$633E conectio[i d'eneuis. 

Hardcopy de 
I'ecran DHGR 

Une copie d'ecran peut etre 
Obtenue avec le programme 
HARD de Marc Debuigne (Pom's 
n° IS). Mais la page 2 etant 
utilisee, il faut le reloger . 11 a etc 
choisi de le charger en $1000. Tl 
faui done poker $10 dans les 
octets SIODO, $10EE, $10F3, 
$115B, $1165, $1187. 

En basic : poke le-. 
POKE 4334, 16 T POKE 
4339, IS: POKE 4443,16: 
POKE 4453,16: POKE 4487,16. 

Le programme HARD original 
permet d'imprimer une image en 
deux tallies 560*192 (1:1) et 
1120*364 (2:2). En masquant 
quelques instnjctions, on dispose 
de deux possibilites suppI6- 
mentaires : (2:1) et (1:2). Voici la 
m^thode : 

Pour image 2:1 

Faire les pokes siiivants : poke 

!6S,126: FOR 1=0 TO 4: 
POKE 4423+1, 234; NEXT. CeCl 

revient h mettre NOP dans les 
adrcsscs $1141 a $1145. 

Pour image 1:2 

POKE 768, 128 r FOR 1=5 TO 7 
! POKE 4423+1,234: NEXT. On 

met NOP dans les adresses 
$1146 et$n47. 

Apr6s la hardcopy il faut restaurer 
le prngramme initial ($1141: 2C 
00 03 10 03 20 ED FD) par la 
sequence : poke 4423, 44 .■ 

POKE 4424,0; POKE 4425,3: 
POKE 4 426,16: POKE 4427, 3: 
POKE 4429,32: POKE 
4429,237: POKE 4430.253. 

Le programme HARD original 
prdsente un inconvenient lorsqu'd 
est utilise sous ProDOS, car il 
deconnecie ce dernier. En effet, 
HARD modifie les pointeurs 
CSWL/CSWH en page zero , ce 
qui est a dviter. II est preferable 
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de passer par les adresses $BE30 
du BI (ProDOS) (cf. Beneath 
Apple ProDOS). Lcs pointcurs 
sont modifies par les rnutines 
ACTIVE et DESACTIV de 
DHGRTOOLO. HARD est patcM 
cn consequence (voir la ligne 
20097 dans DHGRTOOL), 

Utilisation de 
DHGRTOOL.O 
dans d'autres 
programmes 

DHGRTOOL.O est implante a 
partir de $800, a la place 
habituelle d'un programme 
BASIC. Ce dernier devra done 
6tre plac^ apres la page HGR 2 , 



en $6000. Prendre exemple sur la 
ligne 10 de DHGKl'OOL. 

Vnus ponvez aussi r^assembler 
DHGRTOOL.O a parlir du 
programme source . En tout cas, 
vous devez laisser les pages 
HGR 1 et 2 libres. 



Pour disposer de la copie d'&ran 
graphique , le programme HARD 
(Pom's 18) doit etre present sur 
la disquette. De plii.s. un certain 
nombre de patches sont 
necessaires pour le reloger et le 
iiiudifier. Prendre exernple sui les 
Hgnes 5070, 5080, 5185, 20095, 
20096, 20097. 

Certains sous-programmes de 
DHGRTOOL pcuvcnt clre utilises 
dans vos propres realisations : 



gestion dcs menus ; 
— Selection d'une page graphique 

du disque (lignes 100-290) , 
— Tontine de saisie de nom de 

frchicr (Ugrics 300-490) ; 
—hardcopy (lignes 5000-5300), 

NB ; DHGRTOOL nc toume que 
sous ProDOS rinnt il utilise la 
possibilite de lire le directory 
d'une disquette er les appels au 
Basic Interpreter. Sous DOS 3.3, 
il faudrait modifier la routine de 
selection d'une image (ligne ICX)) 
et les patches au programme 
HARD concemant les entrees/ 
sorties. 

DHGRTOOL.O est utilisable sous 
DOS 3.3 a rexclusiun de 
ACTIVE et DESACTLV, 



G 



Source DHGR.S 

Assembleur Edasm 
ProDOS ou ProCODE 

(Pour Edasm, LSH, nOR... ne 
caiK&nen t pas implicitemm! A ; 
il taut done les remptacer par L SR A, 
RORA) 



UTlLimitSS POUBLS HAUTE RESOLUTION 

H.JOST - I MS 
£dasm ftouvs/fruWDt: 





ORG 


5SD0 




J»P 


TSANSFERT 




JMP 


IllVDHGR 




JMP 






JMP 


DBLNGR 




JMP 


HGRDHGR 




JMP 


ECHAHGE 




JMP 


COflBCB 




JMf 






JMP 


imCAUC 




JMP 


INVDROl 




JMP 


ERREUR 




JMP 


INKEr 




JMP 


ACTIVE 




JMP 




AIL 


SOU 


* 

S3C 


Am 


FOU 






EQU 




A^H 


fW 




A4L 


EQU 




MH 


EQl) 


$43 




EQU 




AomaVE 


EQU 


fCJll 



IIUGEB DOUBIE NJIQTE HESOLUTION 



£L. Jamil <19a«) 



Cli&rfjAr uiiA imKya 1 fix 
Ch ■. Eg** E daux Iaajaa 

auE au HE HIT pflndp«l. 



Choioir aTae la* fl*ch«ff / Val idac pas^ ^ElTrBR> / >QuJ,ttwE pax: <E£C> 

DHGRTOOL : Presentation type 'AppleWorks' et ergonomie plai^antt^ 




; routine de Cransfert 



* !/EGATJF DZ LA PACE DHGR 

JiJ[?R£:sSE EQU SOS 



SAUVE 


EQU 


$09 








LINNUH 


EQU 


fSO 








t^FMPRIliC 


EQU 


SC054 






1 


HEMAUXI 
* 


EQU 




f 


selectlonne la page 


IR 


INVOHGR 
* 


m? 












LOK 


tfoa 










STX 


ADRESSE 










Lax 


*«0 










STX 


AORSSSEtl 




an demarre en ^2000 




INVO 


lOY 


f^CO 








INVl 


STA 


HESiAUXl 










im 


tAPPSSSEl , 


r 








EOR 






inverse un occet e/i 


iA 




STA 


lASRESSEl , Y 








STA 


HEMPHINC 










LOA 




r 








EOR 






inverse uf) octet en 


1 




STA 


(ADRESSEt , Y 




















ONE 


IN VI 
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AnRESSE+J 




STA 


MEHAVXI 1 le Jei- ceret eit cfiarae en 




DEX 






lA 








mvo s 




LDA 


Limm 




RTS 






STA 


{ADRESSE) . Y 


* 








STA 


MEMPRINC 1 le Seaie. en page 1 




HOftlZOnTAL 




LOA 


LIHNUMI2 


t 








STA 


(AUHESSE), r 


MIRHOR 


HOP 






DEY 




* 








BNE 


BOIICI 


SI 


EQU 






INC 


ADRESSE+1 


12 


EOU 


$07 




DEX 




DEPART 


EQU 


$13 




BUE 






SOU 


SIA 




UTS 




TAMPON 


EQU 


^ J C 








XI 


EQU 






* d^douhle chacun des 7 premiers bits d'un octet HGR 


K7 


EOU 


SEC 




* ec fftocJte dati<s dsuK cptets en ccnservant le bic 


ri 


BOU 






' e-tsuleur, sf 


, Pascal C^ncotj Pom's ZD 




EQtJ 


SEE 








* 








DEEOUBLE LDX 


isO'O 










STX 


Limm 




LUK 






STX 






STX 


XI 


initialisation dss pointeurs 


LDX 


t4 7 




STX 


TJ 




DECAL ASL 






STX 


ZX 




PUP 






WX 


1191 


192 lignes 




RULlNNm 




STX 


22 




PLP 






STX 






JSR 


ROLINNUH 




Lax 


no 


^0 oczezs pair ligne 


DEX 






STX 


X2 




BPL 


DECAL 




WX 


21 


ca1c\a1 des adresses de depart 


JSR 


ROLimUK 




JSR 


CALCADU 




LSR 


LimUH 




ST A 


BEPART 




UTS 






STY 


DEPART+1 




ROLimm ROL 


LimUM 




IJiX 


7.9 




ROL 


LINNtJHtl 




■JSH 


CALCADR 




RTS 






STA 


ARRIVEE 










STY 


AUKIVEE*! 




* 2 IMAGES HGR 




Lay 


XI 


on trjit« 1 li^fic 


* 




HORZ 


STA 


HEMAUXI i 


urx 'Lit-:ttJi/c tie la f/Gf'jer lA 






LDA 


IDEPART) , y 










BHA 






' copie 1 'imracre chsmee sn page 2 




LOA 


(ARHIVEE) . r 




• li4000-S?Frr) djjys ane moitie d» paga DHGR 




STA 


IDEPART),y 










PLA 






* ippej par CALL AD,X 




STA 


/ASRIVEEKY 




* X - nLHitero de la lere colonne 1 0<=X<'2B 1 




STA 


HEMPRINC t 


ct eJt^ P^ff^ J 


* 






LDA 


iDEFART} , r 




HGRDtfGK WOP 






eim 






* 






LDA 






XAO EOU 


$1C 




STA 








ilD 




FLA 












STA 


lARRIVEE), Y 




GETBITC EQV 


SEeFS 




INY 






*■ 






cpy 


X£ 




LDY 


mo 




tNE 




fin, rfe la iigne 7 


an 


Xi 




mc 


Zl 


on Disse a Is Hone suivsnte 


STY 


ri 




DEC 


23 




LDY 






SBC 






STY 


xz 




LDA 


E2 




LDY 


H3I 1 192 iig/iss 




SBC 


Zl 




STY 


Y2 




BCS 


MORI 




.KB 






firs 






STX 


XAO J numero iere t^olaaiits 



* HGR —> DHGR 
* 

* LLjinsZurnm une ima^e HGR en Image DHGR 
t 

DBLUCR HOP 



STX ADRESSE 

LDX tSSO 

STX AUKl:SSE^^l ; 

BOVCO LOr tSDO 

POTCl LDA (ADRESSEI , Y 

STX SAUVE 

JSR DEDOUBLE ; 

LDX SAUVE 



1 'image est en page 1 
en dupllgtiaac chaque bit 



STX AMI 

BOilCLE LDX r2 

JSR CALCADR 

STA DEPART 
TYA 
CLC 

ADC 1 520 

STA £»EPASr+J / adresse ligne depart en page 2 

JSR CALCADR 

STA AURIVEE 

Sl'I AKKlVth'+l i adresse ligne en page I ou lA 

iiGNE wr XI 

LHA tDEPAKTl,Y 1 40 cc-cet par ll^ns 

em 

IHI 

WA IDEPART) , Y 
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inr 


















STY 


XI 










* 






LDY 


KAl 












ge le 




STA 


MEMPRINC 


; 


stocks 


en psge 


1 








STA 


mRlVEE] . 


Y 










LDA 


tDEPARTi . Y 


PLA. 














sm 


TAMPOK 


STA 




r 




en page 


lA 




TYA 




STA 




y 










PHA 




mc 


X& 1 












CLC 




STA 


MEMPRINC 












ADC 




LUh 


Kl 












TAi 




CMP 


X2 












LDA 


lOEPART) , y 


BATE 


LI CUE 












STA 




LOA 


tsoo 












LDA 


TAHPON 


STA 


XI 












STA 


lOEPAMTI , r 


LOA 


XAC 












PLA 




sra 


XR} 












TAY 




OEC 


YS 












LDA 




LDJt 


Y2 












STA 


fDLPART) , r 


CHP 


t$FF 












RTS 




stre 


BOUCLE 










* 






RTS 












* 







* CWJi" miTI^ PAGIC OHGR GAUCHS DANS DROITS 



* caLcuie 1 'adresse d'uzj octet en page HGR a ffartir 





TABIL BL TABIH, 


* 












CO? I EGO 


LDX 


*soo 


CALCADR 


TXA 






STX 


XI 




LSR 






STX 


Yl 




LSR 






LDX 


/19S 




LSH 






STX 


n 




TA¥ 






LBX 


t2D 




rm 


TABIL, Y 




STX 


X2 




PIIA 




coei 


LOX 


Yl 




TMA 






JSR 


CALCAOP 




AND 






STA 


DEPART 




ASt 






STY 


DEPARTt2 




ASL 






LOY 


XI 




CLC 




C6P2 


STA 






ADC 


TAB2H, Y 




JSR 


COPl 




TAy 






STA 






FLA 






•ISR 


caej 




RTS 






INY 












CPY 


XZ 


* 








B»E 




TAB2L 


DFB 


$00, $S0, $00, $SO,?0O, ?SCJ, $C0, iSO 




IltC 


J-3 




DFB 


S2S, SAS, $28, SAa, S28, SAB, $AB 




LOA 


Yl 




DFB 


S5t], Bnn, SM, sm, $^,$^0, $50, $ao 




CMP 


Y2 


TABIH 


DFB 


S20, f20, CZl, S21, C2X, $22, $23, $22 




ens 


COPl 




iite 


tr2V, ¥2U, 921, S2I, 922, $2Z, S23, S23 




RTS 






DFB 


S20,S20, S2J,S21, S22,S22, ^2i, S23 








* 






CQP3 


LDA 


(DEPART 1 , 










SPA 


TAHPOH 


* tC.HAHGK DE 


DEUX MOITIES OHGR 




TYA 












PHA 










CLC 












Anc 


i20 


ECHANCE 


LDX 


ISOO 




TAY 






STX 


XI 




LOA 


TAMPON 




STX 


Yl 




STA 


(OePARTi, 




LDX 






PiA 






STX 


Y2 




TAY 






LDX 


t20 




RTS 






STX 


X2 








SWAPl 


LDX 


11 










JSR 


CALCADR 


• COPIE 


MCITIE PAGE DHC 




STA 












STY 


DEPABTiJ 


« 








LOr 


XI 




LUX 


t20 


SKAP2 


STA 


HEMAUKI 




STX 


X2 




JSR 


SKAP3 




LDX 


isoa 




STA 


HEMPSINC 




3TK 


Yl 




JSR 


SNAP3 




LDX 


12 32 




INY 






STX 


Y2 




cpy 


XS 




LDX 


t4C 






SHAP2 




STX 


X2 




luc 


n 


copyi 


LDX 


Yl 




WA 


n 




JSR 


CALCABR 




tWf 


xz 




STA 


DEPART 




BNE 






STY 


DEPART* 1 
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LDY 


XI 




JSR 


GETBYTC 


L<JI'I2 


iJA 


MEMhVKI 




STX 


CHOIX 




JSR 






JSR 


CETSrTC 










CPX 


to 




JSR 


C0PY3 




RUF. 


TRFl 




im 






JSR 






cpy 


X2 




RTS 






SHE 


COPY2 


TREl 


CPX 


tl 




I«C 


Yl 




BNE 


TSF2 




LOA 


ri 




JSfl 


TRAflSl 




CUP 


12 




RTS 










TRP2 


CPX 


i2 




RTS 






BNE 


TUFFIN 


• 








JSR 






U>A 






JSR 


T.RAhSl 




STA 




TRFFIN 


RTS 






TYA 




TRJlNSO 


LDX 


CtfOTX 




yjtA 






STA 


HEMFRINC 




SEC 






JSR 


miTMovt: 




sar 


*2C 




£M 


DEBIJT1,X 




Mr 






STA 






LDS 


impoN 




LDA 






STA 


(DEPART} , Y 




STA 






PLA 






LDA 


NOUVi , X 




TAr 






STA 


Am 




S7S 






TXA 












ROR 












JSR 


AUXMOVE 


' INVERSE HOI TIE GAUCHE 




RTS 












LDX 


CHOIX 


n 








JSR 


XNITMOVE 




LDX 


tec 




LDA 


DEBtJT2y X 




STX 


XI 




STA 






mx 


tioa 




LDA 


FINZf X 




STX 


Yl 




STA 


A2H 




Lax 






ruA 


isom2, X 




arx 


tz 




STA 


A4H 




LDX 


$20 




STA 


UEMAUXI 






XP 




TXA 








INV 




fiOH 












JSR 





• im'ERSi: HOITIE DROITE 



STA 

RTS 



MSMPRIHC 



im2 



Lax 


420 












IHimoVE 


LDA 


ItOO J Init ie 1 iJis icn ocCcts bjs 


STX 


XT 






AIL / sdressGS uciii^^es 






S1A 


LDX 


400 






STA 


A4L par AUXl'fDVE. 


STX 


Yl 








WX 


tl9Z 






LDA 


tSFF 


f!TX 


Y? 






STA 


AZL 


LDX 


t40 






RTS 




sm 


XZ 










JMP 


ISN 




















; utiiiiees par ktJXf^'O'fi^ 


LDX 


11 




DF.RIirl 


DFS 


S20, $40, $4S, SZQ, $80, $20 


JSR 


CALCADR 




FINl 


DFB 


S3F, iSF, ssr. Sir, sor, s3f 


sm 


DEPART 




NUUVl 


UfB 


fJO, sic, i40r $2<i, seo 


STY 


DEPART-^^ 




DEBVT2 


DFB 


S2D, $20,$ 60, i20,$A0, 520 


LDY 


XI 




riN2 


DF3 


S3F. $JF. $ 7F, Sir, JBF, S3F 


STA 


KEMAUXl 






DFB 


$40, $40, $20, seOr ^20, 


JSR 


IKV3 




ERREUR 


FLA 




SIM 


MEMPRINC 






JAY 




JSR 


mvi 






PT.A 




INY 








LDX 


SDF 


CPY 


X2 






TXS 




BNE 


IHV2 






PHA 




INC 


ri 






TYA 




LDA 


Yl 






FHA 




CMP 


Y2 






RTS 




BNE 


IHV 




* 






RTS 






* DBIVER 


IMPSIMAHTE 


r.nA 


IDEPARTI , 


Y 1 iiivETse un occet 


OLDVEC 




S2FE 


EOR 


ifFF 




t 






STA 




Y 






™i=uj-j> itana VSCTIN <SBE30-31) 


RTS 






* et Jes 


remplace par Je poru imprimante . 



' TRAHSFBRT DE PAGE DIIGR 



TSANSFBRT NOP 



LDA fBESO 
STA QLDVEC 



24 
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$as3l 




EQU 


iDESE 




SI A 


OLDVECfl 




EQU 


$DFE3 




LDA 




SGNFLT 


EOU 


$E3Q1 


rend flatt^fit } 'f^ntit^r- sdtn^ sign 






MOVMF 


EOii 


$EBSB 




LDA 


t$Cl 




pair 


S ec r 




am 


SHf JJ 


* 








RTS 




* 








* 




IN KEY 


JSR 


CtlKCOH 




* Rcdlxltft; It^^ ^vcilv^ vers La 




•JSX 






' carte 80 ccJonnes tslot JJ . 




LBA 


KBD 










RPJ. 


KF.Y 






OLDVEC 




BIT 


STROBE 




STA 


tBEjO 




CffF 


ISfF 




IDA 


OLDVEC-fl 




fl£Q 


KE^l 




STA 






CMP 


tSKO 




UTS 






DCC 


KEYl 




* 






AND 


t^DF 


; convert it en msjvsciiis 


* SArslE D'UNE TOUCHE 


mn 


ASD 


tS7F 


J bit 7 A zerc 








TAY 






* 






J"SB 


SGflFLT 


i L i'^ T fi-i ClolL^ni. d^ns FAC 








LDX 


VARPNJ 


; adressc de ia variable 


VARPNT EQU 


$33 t fl<ire55e tie is <fernier(^ Vrjrj'-^bie 




LDY 


VARPliTf-l 




KBD EOU 


ice 00 




JSB 






S7R0BE ZQU 






RTS 







Source HARD.S 

II s'agit du source publiS dans le 
numero 18 de Pom's, 



Programme DHGBTOOL 

10 IF PEEK <1D31 f PEEK (104) * 256 < > 24^7 
7 TmN POKE 103,1: POKE 104, 96: FOKE 245^ 
6,0: PRINT CHF.^ (4} "RUN DHGSTOOl" 

20 GOTO 2000D 

100 REM CUARGEMENT D'UNE IMAGE 

110 ER = 0:CX - CX(NM}:CY = CY (NMi : GGSV3 5Q0: P 
OKE 32, CX -t 1: VTAB CY * 3: POKE 33, CK t £ 
9: POKE 34, LY -h 2: FOKE 3b, CY + lb 

115 PRINT D$"PRF.F-TX,m" 

120 PRINT "PREFIX": INPUT PIR$ 

IJO PRINT D$"OPEN"DIR$",TDIR" 

140 PRINT DS"SEAa"DJR$ 

145 ItiPUT T^-: INPUT T$ : INPUT T$ 

150 ONERR GOTO 180 

155 I - 

160 INPUT NAME$:NRME$ = NAME$ + "" 
152 IF NAMES = "" THEN 180 

164 IF MID$ (NAME$, 18,3) c > "BIN" THEN 160 
166 IF MID$ (NAMES, 26, 3) < > TAS THEN )fiO 

165 IF MID$ iNAME$,7e,4) < > "2000" AND MID$ 

[NAMt:?,7t,4} < > "^DQQ" THEN 160 
172 T = T + l75$(4,I) = LEFT$ (NAME?, 15): GOTO 
160 

J 80 POKE 216,0: PRINT D$"CLaSE": TF 1 > 1? THEN 
1 = 12 

181 Si = I: IF SI = THEN PRINT CHR$ !7) " Auc 

one imagQ sur ce disque "• ; G£T POP : 

RETURN 

182 IM = 4:HL = 6:HT = 10 

184 GOSUB 1020: IF K - 27 THEN FOP : RETURN 

iSe WiWfff = S?(4,CU 

IQf] TF CO = 2 THEN RETURN 

230 REM 

260 PRINT : PRINT D$"BLOAD"NAME$;AS 
290 RETURN 

300 REM HAlSit) D'UN NOM DE FICHIER 
310 : 

320 HTAB 1: VTAB 23: TEXT : CALL - 868: PRINT 



"Tapez Is nom de J 'image, pvis <c.nter^ // 
<ESC> pour snnulsT" ; 
330 SR - OsCX - CX(NM!:Cy - CY (NM) ; COSUB 500: P 

OKE 32, CX + 1 : VTAB CY + 3 
an POKE 3?.,CX J- 50 

350 POKE 34, CY + 2: FOKE 35, CY + 14 

360 M$ = "": HTAB 1: VTAB 10 

361 PH = PEEK (1403) + 2:PV = PEEK (37) * 1: 1 

NVERSE ! PRINT " NORMAL : HTAB PH: VTA 

R PV; CAT.I. TCHF,R 

362 IF R - 27 THEN RETURN 

363 IF R = $ OR R = 127 THEN COSUB 390: GOTO 3 
SI 

364 IF R = 13 AND M$ < > "" THEN PRINT " "/ : 
GOTO 45G 

365 IF R < 4€ OR (R > 57 AND R < 65j OS (F > 90 

AND R < 97) OR R > 122 THEN POKE 1103, F 
EEK (14 03) - 1: SOTO 3€1 
370 PRINT C/fJ?# CR) ; 
375 M$ = M$ + CHR$ (Rl 
330 GOTO 361 

390 HTA8 PH: VTAB PV: PRINT " "; : IF LEN (11$) 
= THEN PRINT CHR$ (7);: POKE 1403, PEE 
K (1403) - 2: RETUSN 

.?9! TF T,F.N IMS) < = 1 THEN POKE 1403, PEEK ( 
1403) - 2iM$ = RETURN 

392 POKE 1403, PEEK (1403) - 2:M$ = LEFTS IMS, 
LEN (M$) - 1): RETURN 

450 PRINT DS"BSAVE"M?",A^2000, L?3FFF" 

480 TF ER < > THEN ER = 0: GOTO 330 
4^0 RETUIiN 

499 : 

500 REM DESSIN D'UN CADRE 
510 : 

S20 POKE 32, CX + J: POKE 33, CX t- 60: POKE 34, CY 

: FOKE 35. CY f 15: NOME : TEXT 
53U HTAB CX + 3; VTAB pr + J: PRINT ITf 
540 VTAB FY; HTAH CX + 2; FOR I = CX * 2 TO CX 

-t 27: PRINT NEXT 

550 VTAB CY + 15: HTAB CX 1 : FOR I = CX * 1 T 

CJf ^- 60: PRINT NEXT i PRINT "!" 
t>bU VTAB CY + 1: tiTAtS CX + 28; PRINT FOR 

1 ^ CX ■>■ 2D rn rx + ^O: pktnt next 

570 FOR I - Cr + I TO cr 1- 15: POKE 36, CX: VTAD 

I: PRINT '".": NEXT 
580 FOR I = a + 2 TO CY 15: POKE 36, CX + SO- 

VTRB l: PRINT NEXT 
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590 RETUSN 
333 : 

790 REM SORTIE DU PROSRAMME 

300 HTAB 1; VTAB 23: TEXT : CALL - 868: P/?J 
NT "Avez-vous vrainnent decide d'jrrerer 
(C/N) ? ",- .- SET B$ 

801 ; 

BIO IF n$ < > "O" AND RS < > "o" THEN RET 
URN 

B20 ROME : Em 

eao : 

900 REM SAUVEGAUDE D'UNE IMAGE 3UR DISK 
905 ; 

91 POKE 49236, 

920 POKE 49152,0: CALL TRANSFERT, 0, 2 : POKE 4 
9153,0: REM TRANSFERT MEM AUXI EN PAGE 
2 PRinCIPALE 

930 IT$ = "Sauvegar(le":NM = 2:FL = 1: GGSU3 3 
00 

555 FL - 
960 RETURN 
550 

1000 REM AFFICHAGE MENU 
1005 : 

1010 CI = i:cx = cjTWw.'cr = cy(nmi:it$ = it$ 
(TM) : GnsUB 500 :RT = HT(NM}:S1 = S(IM):H 
L = HL(NM) 

1015 HTAB 1: VTAB 24: PRINT "Cholsir avec ie 
s f laches / Vullder p^r <ENTER> / Qui tee 
r par <ESC> 

1020 CI = 1 

1030 FOR X = 1 TO Si: IF X = CI THEN INVERS 
E 

1040 VTAB «i + 2 * X + ;f * fSl < 10): HTAB H 

T: PRINT S$(m,Xi: NORMAL 
1050 MEXT X 
1070 POKE - 16368, 
1030 CALL TCHE,K 

1030 IF K > 48 ANU K < 48 + i'i THEN CI = K: 
GOTO 1170 

1100 IF K < > 8 AND K < > 21 AND K < > 13 
AND K < > 10 AND K < > 11 AND K < > 
27 THEN 1080 
1140 01 = CI 

1150 IF K = 8 OR K ^ 11 THEN CI - CI - 1:C1 
= CI * (CI > 0} t SI ' iCl = 0) : GOSUB 1 
J SO: GOTO 108Q 

1160 IF K = 21 OR K = 10 THEN Cl = CI + 1 : CI 
= CI * (CI < - SI) + Kl = S! + 1): GO 
SUB llBOi GOTO 1080 

2170 RETURN 

1180 VTAB HL * 2 * 01 ■>■ 01 * (Sl < 20): flTAB 
ht: print s$fiM,ui) 

1190 VTAB UL ^- 2 ^- Cl ->- Cl * {SI < 10}i INVE 
RSE : HTAB HI: PRINT S^(IM,C1/: NOEMAL : 
RETURN 

1200 : 
4990 : 

5000 REM HARD COPY 
5005 : 

5007 HTAB 1: VTAB 21; PRINT » Etitrac la nouv 
elle valeur / ValiHer par <ENTER> / Qvit 
ter par <ESC> "; 

5010 cx = cx(NM):CY = CY(NMi:IT9 - "Hard copy 

5020 POKE 768 fO: POKE 769,0: REM IMAGE NORM 

ALE ET 560*132 
S030 POKE 32, CX + 4: VTAB CY J- 4: PRINT 



5040 W$ - Pl$: PRINT "ECHELLE HORIZONTALS (1/ 

2) ?■':: GOSUB 5300: IF IV < :> 13 THEN PI 
$ = WS: POKE 36, HT + 75.- VTAR VT -r 7; PR 
INT Pl$: PRINT 
5050 W$ = P2$: PRINT "ECHELLE VERTICALE (1/ 
2} ?",•: GOSUB 5300: JF W > 13 THEN P2 

$ = W$: POKE 3€,HT ^- 15: VTAB VT -i- 1: PR 

INT P2$: PRINT 
5070 IF PIS = "2" AND P2$ = "J" THEN FOR I 

= TQ 4: POKE 4 42 J + 1,234^ NEXT :P3$ - 
"002": GOTO 5140 
5030 IF PIS ^ "1" AND P2$ = "2" THEN POKE 7 

68,128: FOR I = 5 TO 7; POKE 4123 + 1,23 

6: NEXT 

5090 IF Pl$ = "2" AND P2$ = "2" THEN POKE 7 

S8.12S:P3$ = "002": GOTO 5140 
5100 H$ = P3$ 

5110 PRINT "MARGE GAUCHE ?";:HT = PEEK (36) 
;VT = PEEK (37): PRINT P3$; : POKE 3e,HT 
+ 2: VTAB VT + l: INPUT "••;P3^: PRINT P 

3$: 

5120 IF P3$ = "'■ THEN P3$ = MS 
5130 P3$ = RIGHTS C'OOO" * P3$.3) 
5140 CALL ACTIVE 

5150 PRINT CHR$ (27) ^ CHR$ (62);: PRINT 

CHR$ (27) + CHR4 (76) - P3$,- 
5160 CALL HAHUCOFY 

51S5 POKE 4423,44: POKE 4424, 0: POKE 4425, 3: 
POKE 4426,26: POKE 4427,3; POKE 4428, 32 
: POKE 4429,237: POKE 4430,253 
5190 TEXT : HOME 
5200 RETURN 

5300 HT - PEEK (36) :VT - PEEK (37); PRINT W 

$; 

5305 POKE 3€,HT + IS: VTAB VT + 1: CALL TCHE 

5310 IF W ^ ?7 THEN POP : PF.TORN 
5312 IF M = 13 THEN 5320 

5315 IF (W < > 49 AND W < > 50) THEN PRIN 

T am$ (7)/: GOTO 5305 
5320 W$ = CHR$ (W) : PRINT NS: RETURN 
8999 : 

$000 REM MENU PRINCIPAL 
9010 : 

9020 TEXT : HOME 

9030 PRINT " IMAGES DOUBLE HAUTE RESOLU 

TION - R.J03C (1996)" 

9040 NM = l:IM - 1 
90S0 COSUB 1000 

90bb IF K = 27 THEN GOSUB 800: GOTO 9020 
90e0 NM = 2: ON Cl GOSUB 10000,12000,900,5000 

,aoo 

9070 GOTO 9020 
9990 : 

10000 REM MENU CHARGEMENT 
1002 : 

10020 IM - 2; GOSUB 1010 
10030 IF K = 27 THEN RETURN 

10Q40 NM = 3:C0 = CUTAS = •• 17": IF CO = I r 

HEN TA$ = " 33« 
10050 ON Cl SOSUB 10070, 1 0080, 10120, 1 0130: T 

EXT ; HOME 
10060 RETURN 

10070 POKE 49236, 0:IT$ = "Imsge DHGR 16K":AS 
- ",A$2000": COSUB 100: POKE 49152,0: C 

ALL TRANSFERT, 1,0: POKE 4 31 •33,0: GOSUB 1 

2070: POKE 49236,0: RETURN 
10030 ITS = "tJifux muit-i^s DHGR" 
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100^0 POKE 49236,0: GOSUB lOOiAS = "jA$20GQ" 

: POKE 49237,0: GOSUB P6D 
10100 POKE 4923C,0: GOSUB 181; GOSUB 260: GO 

SUB 12070 
10110 RETURN 

10120 POKE 49236, 0:ITS " "deux Images HGR":A 
5 = ",A$4Q00»; GOSUB 100: CALL Hl,Ol COS 
UB J 51; fJALL H1,2U: GOSUB 120 /Q: RETURN 

JO Kin TT$ = "Iniarj^ NCR -> DHCR ieK":A$ = ",A$ 
2000": GOSUB 100: CALL H2 : GOSUB 12070: 
RETUFN 

11990 : 

12000 REM TRATTKMENT IMAGE 
12010 : 

22020 IM = 3:m = 2 

12030 GOSUB 1010 

12040 IF K = 27 THEN RETURN 

12045 IF CI = 1 TUBN COSUB 12070: GOSUB 107 
0: GOTO 12040 

120'iO m Cl GOSUB 12070, 12080, 12100,12110, 12 
120, 12130, 12030, 12150,121 70, 12140, 12150, 
12180: GOS(m }2(i70: GOKllB 10 70 

12060 GOTO 12040 

12070 POKE 49160,0: POKE 49165, 0:X = PEEK < 
49232) PEEK (49234) i PEEK (49239) + 

i'tEK (49246): REM AFFICOE L' IMAGE 

12072 S = PEEK ( - 16334): ON R < 123 GOTO 1 
20 72 :R ' R - 128: POKE - 163bU,0 

12074 IF R ^ 13 OR R = 27 THEN TEXT : RETUP 
N 

12075 GOTO 12072 

12080 RGR : POKE 49234,0: POKE 49237,0: CALL 
624bO: POKE 49236,0: RETURN : REM EFFA 
CE L' IMAGE 

12090 CALL NEG: TEXT : HETUHN : REb^ NEGATIF 

DF. r.'TmcE 

12100 CALL TRANSFERT, 3, 2: TEXT : RETURN : FE 

M TRANSFER? FN MFM AUXI 
12110 CALL TRANSFEFT, ^,2: TEXT : RETURN : RE 

M VERS MEM AUXI $300Q-BFFF 
12120 CALL TRANSFERT, 2, 2: TEXT : RETURN ; RE 

M RAPPEL DE LA MEM AUXI 
12130 CALL TRANSFERT, 4, 3: TEXT : RETURN : RE 

M HAFtEL AUXI 9S0O0-BFFF 
12140 CALL CC: RETURN : REM COPIE GAUCHE -> 

DBOItE 
12150 CAJ.T. TC: 

GAUCHE 
12160 CALL MI: 



RETURN : REM INVERSE PARTI E 



RETURN 



REM 



MIROIR 

12170 CALL ECHANGE: RETURN : REM FERMUTER L 

ES DEUX MCI TIES DE L'ECRAN DHGR 
12180 POP : RETURN 
14990 : 
15000 
15005 
15010 
15020 



RFM TRAITEMENT ERREUR DOS 



CALL PAtlTE 

PRINT CHR$ (7);: HTAB 1: VTAB 15 
15030 ER = PEEK (222) :EL = PEEK (218) + 256 
* PEEK (219) 
INVERSE 

IF ER = 4 THEN PRINT "DISK PROTEGE EN 
ECRITVRE"; : GOTO lbl20 
IF ER = 6 AND EL = 20090 THEN PRINT " 
METTRE UNE DISQUETTE QONTENANT DHGRTOOL. 
0": CALL - 74 f: GOTO 20090 
1507O IF ER = 6 AND EL = 20035 THEN PRINT " 
LE PROGRAMME HARD (POM'S #18) DOIT FIGUR 
BR SUR LA DISQUETTE": CALL - 741: GOTO 



15040 
15050 



15060 



20100 

15080 IF ER = S THEN PRINT "CE FICRIER N'EX 

ISTE FAS";: GOTO 15120 
15090 IF ER = 8 THEN PRINT "PRflEfW D' ENTREE 

/SORTIE ! GOTO 15120 

15100 IF ER 9 THEN PRINT "DISK REMPLI « : : 

PRINT D$><DELETE"MS : GOTO 15120 
15110 PRINT "ERREUR fER" A LA LI ONE f'EL: T 

EXT : END 

15120 NORMAL : FOR T = 1 TV 2000: NEXT 
NT CHRS (7): 

45Q OR EL = 460 THEN 480 



FRI 



15130 
15140 
19990 
20000 
20005 
20010 



IF EL 
END 

REM 

TEXT : 



HOME 



UNERR GOTO 13U20 
20040 DS = CRR$ (i)l PRINT D$"PRIf3" 
20070 THANSFKRT = 204is:NEG = TR + 3:MI = TR f- 
e::H2 = ^ 9:H1 = TR * 12;EC = ra + J 
S:CG = +• IS.'IG - TR + 24;FAUTE = TR -* 
30 :mRnCOPY = 4144 
200BO TCME = TR i- 33:ACTIVE = TR * 36:DESACTI 

VE = TR + 39 
20090 IF REEK (2048) i REEK (2050) < > S6 
THEN PRINT D$"BLCAD DHGRTOOL. 0" 

20095 IF PEEK (4144) + PEEK (4154) < > 38 
5 THEN PRINT D$"BLOAD HARD, AS 1 GOO" 

20096 POKE 4304,1$: POKE 4334,16: POKE 4339, 
IS: POKE 4443,16: POKE 4453,16: POKE 448 
7, 16 

20097 POKE 4151,234: POKE 4152,234: POKE 415 
3,234: POKE 4506,DESACTIV / 256: POKE 45 
05,DESACTIV ~ PEEK (4506) '256: REM 
MODIFIE LES APFELS PHt DANS HARD. 

20100 DIM S$(5, 14) 

20105 ONERR GOTO 15000 

20110 Pl$ = "1":P2$ = •n":P3$ = "002" 

20120 DATA "C/Jdrijer ii/je Im^yti", "TcslL 

or 1 'image", "Saover tine Image DHGR", 
"Imprimer une Image DHGR", "Quitter" 

30130 5(1) = 5; FOR 1 = 1 TO S(l): READ S$(l, 
I): NEXT :HT(1) = 25:HLil) = 2:CX(1) = 5 
:CY(1) = 2:IT$(1) = "M^nu Principal" 

20140 DATA "Cbarqsr une Image 16K", "C 

hatger deux images DHGR", "Charger lipu 
K images HGR", "ChdzytiL una luisge HGR" 
"Retour an MENU principal" 

20150 S (2) - £; FOR I - 1 TO S(2j: READ 5$ (2, 
1): NEXT :HT(Z) = 2S:HL{2) = 4:CX(2) = 7 
:CY(2) = 4:iT$(3! = "Ch^rgcmotit d'urtc im 
age" 

20160 DATA "Voir 1 'imago", "Ef facer 

I'lmaqe", "Sduver en mew auxi-1", 
"S;f)iver e-n mem "Rsppel da la 

mem auxl-l", "Rappel de la mem auxl- 
2" 

20 170 DATA "Negetlf de l' image", "Wt> 

gatlf moitie gauche", "Permute l&s de 
u« meltlcs", "Copie moitie gauche a d 

roite", "Mlroir", "ReCour au MENU 
principal " 

20180 5(3) = 12: FOR 1=1 TO 5(3): READ S$ (3 
,J): NEXT :HT(3) = 31:ML(3> = 3:CX(3) = 
9:CY(3) = 6:iT$(3) = "Traltement Image" 

20210 X = PEEK (i9239j: NORMAL : GOTO 9000 
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Souris-Laser vous est pre- 
sente ici en deux versions r 
Basic Applesoft et 
assembleur. Une occasion de 
comparer la conception et 
d'apprecier la vitesse de 
reaction... peut-etre aussi 
d'adopter definitivement 
I'assembleur. 

Souris Laser 

Version 

Basic 

La souris livree avec les //c et 
adaptable aux //e est un accessoire 
fort agreable pour rutilisation de 
nomhreiix logiciels. La 
ducumeiilalion de base ne pemiet 
pas d'en mattriser la program- 
ination de haul niveau mais 
indique un moyen simple de la 
contrnler sous BASIC. La routine 
correspondante est ici mise en 
ocuvre pour la manipulatinn d un 
jeu de reflexion generalement 
connu sous le nom de "boite 
noire", 

Les regies 

Aux intersections d'une grille 8 x 
8, trois atomes se placent au 
hasard. En emettant, 
horizontaleuieuL ou veriicalemeiu, 
des rayons 'laser' a partir des 
canons disposes a la periph6rie de 
la grille, ct cn observant les points 
de sortie de ces rayons, il faut 
trouver I'emplacement des atonies 
sachant que : 



Souris -Laser 



un rayon frappant directement 
un atome est absorbe ; 
tout rayon d^tectant un aiome 
en avant sur sa droite 
(respectivement gauche) est 
d(£vi6 sur la gauche 
(respectivement droite) ; 
un rayon dont la trajectoire 
passe entre deux atomes 
situes immediatement de pan et 
d'autrc est reflechi ; 
si un atome est situe contre un 
bord, tout rayon ^mis d'un 
canon dispose de part et 
d'autre de I'atome est 
immediatement reflechi ; 
les canons ont le double role 
d'cmcttcur ct dc detecteur ; 
le tir est declenche en cliqnant 
la souris dans I'un ou I'autre 
des canons (zones jaunes 
ext^rieures a la grille) ; trois 
tirs sont possibles sur chacun. 



Au lancement du programme {run 
SOURIS . laser), un menu 
d'options constitue de grosses 
lettres en basse resolution 
.s'affiche. Cliquer dans la case 
correspondante pour choisir : 

Jeu normal : le premier curseur 
est rose ; on dispose de 6 coups. 

Jeu facile : le premier curseur 
est vert ; on dispose de 1 2 coups 
el les uajcctoires des rayons sont 
visualisees. 

Demonstration : les atomes 
soni visibles et les trajectoires 
visualisees ; on peut verifier les 
regies du jeu. 



Stop : fin du jeu. 



^Bcnott MesnU 



Une fois I'option principale 
selectionnee, le jeu peut 
commencer. Un second menu 
d'options est affichc, les deux 
premieres dans la couleur du 
niveau choisi (vert ou rose) : 

• commencer une noiivelle partie 
au meme niveau de difficulte ; 

■ continuer la partie en cours, du 
moins s'il reste des couleurs ; 

• donner les solutions en 
affichani les atonies. 

Stop : fin du jeu. 

La signification des initiales est 
rappelee dans un message en bas 
de i'ecran. 



Pour effectuer le lir, on amene le 
curseur sur un canon et on 
'clique' ; un pave de la couleur 
du curseur s'inscrit dans le canon 
[I'origine puis, sauf absorption, 
dans le detecteur de sortie. 

On peut a lout moment tester la 
presence d'un atome ; amener le 
curseur dans la grille et cliquer a 
I'emplacement supposd. Si un 
atome s'y rrouve effectivement, 
un pav6 vert pale s'inscrit et un 
signal retentit. Pour reprendre le 
jeu, ramener le curseur hors de la 
grille ou dans la case de I'option 
C et cliquer. Le pointeur reprend 
la couleur du tir suivant ou reste 
noir s'il n'y a plus de couleur 
disponible. II n'y a pas dc p^naliie 
en cas de test infructueux d'une 
solution : ceci peut etre envisage a 
condition d'climincr Ics cas 
d'echec dus a un positionnemenl 
imprccis du pouiieur. 

On pourrait augmenter a quatrc le 
nombre d'atomes ; paradoxale- 
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ment, cela semble rendre le jeu 

plus facile. 

Le programme 

Voici quelques indications sur la 
programmation du jeu. 

Lignes 30-36 : la souris est mise 
en service. 

40-85 : la grille ct le piemier menu 
sont affiches. 

100-130 : lecture de la souris: 

position et decile. 

135-138 : temporisation du 

curscur pilotc par la souris. 

140-180 : la souris a ete 'cliquee', 

aiguille vers le traitement 

appropri^. 

200 ; souris cliquee dans la zone 
des menus. 

205-248 : si le premier menu 
affichc, enrcgistre I'option et 
appelle le second menu. 
250-230 ; traitc I'option du 
deiixieme menu. 

400-520 : le rayon a ete emiy ou 
se propage horizontalement: 
460-465 : en ligne superieure de 
la grille, 

470-475 : en ligne infMeuie de la 
grille. 

480-488 : jeu facile, affiche un 
traceur. 

494-498 ; le rayon ressort a droite 
ou a gauche. 

500-520 : il toume ou ressort cn 
haiit ou en bas. 

600-705 : le rayon a eie emis ou 
se propage verticalement. On 
reirouve, au chiffre des ceniaines 
prcs, les groupes de ligne 
eftecTuant les traitements 
equivalents a ceux des sections 
list^es ci-dessus. 
720-726 : fin de tir. 
900-910 : fin du jeu, deconnecte 
la souris. 

Sous-programmes 

750-790 : place les atonies. 
800-845 : donne les solutions. 
850-890 : la souris a 6i6 cliqufe 
dans la griUe : teste les solutions. 

Ayant ete un de mcs tout premiers 
programmes sur Apple, celui-ci 
n'est pas optimist et est de ce fait 
assez lent ; les indications 
ci-dessus permettront de mener k 
bicn les ameliorations ncccssaircs. 



Laser. Mouse 
version *Asm* 

Le jeu oteit aux memes r&gles que 
la version Basic ct sc presente de 
fagon tout-a-fait similaire : les 
options sont choisics en cliquant 
dans des cases de menu dessinees 
en basse-resolution : 

Menu 1 

J Jeu normal, 6 essais, pas de 
visualisation des trajectoires ; 

F Jeu facile, 12 essais, 
visualisation des trajectoires. 

D Demonstration, comme F, 
avec visualisation des cibles. 

Menu 2 

J Rejouer ; reinitialisation et 
retour au Menu 1. 

C Continuer ; il n'cst toutefois 
plus necessaire d'y clique r pour 
reprendre le jeu apres avoir 
recherche une eible dans la grille. 

D Donne les solutions. 

Dans les deux cas, S termine le 
jeu. 

La principale difference vicnt 
evidemment de la rapidite 
d'execution qui ne laisse aucune 
chance de simer les obstacles par 
la duree de I'essai. 
Malgrc les temporisations, il est 
meme recommandfi de ne pas 
s'endormir sur le bouton de la 
souris . . . 

Un problfeme demeure qui, 
apparemment, n'est pas d'origine 
logicielle ; il faut veiller a ne pas 
dcplacer la souris au moment ou 
Ton clique, en particulier dans la 
case J du Menu 1. 

Le jeu se compose de deux 
616ments principaus : 

• Le fichier laser, mouse, 
charge en $6000 ; programme de 
jeu proprement dit. 

• Le fichier LASKfi..^ER, charge 
cn $7000 : sous-routines ct 
utilitaires. II convient de les 
Charger CBLOAD) dans cec ordre 
avant de ddmarrer par un CALL 
24576. Le programme Basic 
LASER . START SC Charge de ces 
operations. 



Descriptif 

Comme pour la version Basic, 
voici quelques informations sur la 
conception du programme. 

Mcmoires Page Z^ro 

$6-7 : adresse de base des 
firmwaras souris CSC400 pour 
slot 4): on a en effet utilis6 Ic 
mode standard d'appel des 
sous-programmes souris via les 
vecteurs de la table foumie par le 
consinicieur. 

$8-9 : adresse des tables de 
messages. 

$19-1 A : adresse ($7600 
actuellement) de la grille reduite 8 
X 8 dans laquelle s' execute Ic jeu. 
$1B-1C : coordonnees x et y des 
paniculcs en mouvcment dans 
cette grille. 

$1 : drapeau initialise ^ ; vaut 1 
pour jeu normal, 3 pour jeu facile 
et 5 pour le mode demonstration. 
Bit 7 a pour deplacement vers la 
droite ou vers le bas, k 1 pour 
deplacement vers la gauche ou 
vers le haut. 

$1E : couleur du curseur en 
cours. 

$[F : sauvegarde de la couleur du 
fond sous le curseur, 
$4E-4F : RNDL et RNDH utilises 
pour positionnement 'au hasard' 
des cibles. 

$FE-FF : coordonnees x et y du 
curseur a I'^cran. 

Routines systeme 

Le programmes utilise les routines 
souris via les vecteurs de la table 
en page $C4. 

II utilise dgalement les routines 
suivantcs ; 



PLOT 


$F800 


HLINE 


$r819 


VUNE 


$F828 


CLEARTOP 


$FS36 


SETCOL 


$F864 


SCRN 


$F87t 


SETTEXT 


$FB39 


SETGR 


$FB40 


HOME 


$FC58 


BELL 


$FBDD 


WAIT 


$FCA8 


COUT 


$FDED 



Programme laser. mouse 

$6000-600E : Initialisation 
d'adresses 

$6010-6017 : INITMOUSE 
(appele via CaUMouse en .$7{KK)) 
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$6018-6030 : CLAMP X (id.) 
$6031-6036 : CLAMP Y (id.) 
$6037-6040 : SETMOUSE (id.). 
Mode transparent adopte par 
facility. 

$6041-6048 : CLEARMOUSE 
(id.) 

$6049 : Appel de Menul en 
$700B 

$604C : Mise k zero de la grille de 
jeu ct tiragc dcs ciblcs par Ics 
sous- routines en $700B et $7138 
$6030-607F : READMOUSE: 
lecture de la souris et affichage/ 
deplacement du curseur ; boucle 
tant que la souris n'est pas 
cliqufc. 

Au-deia de $6080, traitement 
selon les choix obieims par 
"cEcs"; 

$6089-6094 et au-dela de $60EB: 
on a clique dans la zone de jeu. 
$6096-60CA : stop ou options 
premier menu. 

$60CB-60EA : options deuxieme 
inecm. 

$60EB-6104 ; elimination des 
coups Ul^gaux. 

$6105 612D : dispatche vers tir 
en ligne ($6 15 A) ou en colonne 
($6220). 

$6J2t'-6J57 : on a cliqufe dans la 
grille ; recherche de solution. 

Tir en ligne 

$6I5A-6183 : ddbut de tir ; tests 



sur les bords tic la grille. 

$6184-6IF9 : la particule se 

ddplace horizontalement. 

$61 FB 6205 : la particule a €x€ 

refl^chie. 

$6206-621 S ; la particule sort 
horizontalement. 

Tir en colonne 

$6220-625F : debut de tir. 
$6260-62E3 : deplacement 
vertical de la particule. 
$62E4-62EE : la particule a etc 
reflechie. 

$62EF-62FB : la particule sort 
venicalement. 

$6300-6323 : fm de tir ; test sur la 
couleur ; temporisation ($63 IC- 
$6320) et retour a READMOUSE 
en $6050- 

$6330-6340 : fin du jeu ; 
d^connexion de la souris. 

Sous- programmes 
LASER.SBR 

$7000-700A : dispatche vers les 
routines firmware souris. 
$7008-7137 : affichage du 
premier menu : tragage des cases 
($7011-704F), des lettres 
($7050-70DB), de la grille 
($70DC-7119) ; affichage des 
premiers messages ($71 lA- 
7137); la routine d'affichage en 
7126-7137 est egalement utilisee 
pour les autres messages. 



$713S-717E : Misc a. zero de la 
grille de jeu (S7138-7I42) et 
lirage des positions de cihles par 
transformations dc RNDH ct 
RNDL. 

$7180-7185 : iransforme les 
coordonnees ecran en coor- 
donnees dans la grille de jeu. 
$71S8-718C : transformation 
inverse. 

$7I90-719A ; positionncmcnt 
dan.s ia grille de jeu en fnnctinn du 
rang dc la colonne. 
$71A0-71DC : affichage du 
deuxi&me menu et des messages 
correspondants. 

$71E0-71E9 : affichage du 

message d'erreur. 

$71 FO-7224 : visualisation des 

ciblcs (options D des cases 

menus). 

$7228-725E : d6but et fin de tir en 
ligne ; la section $7246 725E est 
aussi utilisee en cas de reflexion, 
$7260-7290 : ddbut ct fm dc tir cn 
colonne ; point d'entree retlexion 
en S7278. 

$7292-72BC : affichage de la 
trajectoire des particules (options 
F et D du menu 1). 
$72C0-72C6 : changement de 
signe du drapeau $1D lors des 
inversions de sens de 
deplacement. 



Programme 
SOURIS.LASER 

5 REM ** LA SOURIS LASER ** 

6 RBtl 

15 D$ = CHR$ (4):SC ■ 25.575 

20 DIM PT(7, 7) 

30 REM *ALLUME LA SOURIS * 

32 PRINT D$;"PR4 4": PRINT CHR$ (1) 

34 PRINT D$:"PRi 0" 

36 PRINT D$;"IN§ 4" 

40 GR : HOME : cnT.m= 13 

42 VLIN 2,33 AT 2: VLIN 2,33 AT 8 

44 HT.TN 2, a AT 2: HLIM 3,7 AT 10: MLIN 3, 7 

AT 18 

45 HLTN 3, 7 AT 26: HLIN 2,8 AT 34 

48 C0LOR= 11: VLIN 4,3 AT 6: HLIN 4,5 AT S: 
PLOT 4, 7 

50 COLOR= 15: FOR X = 28 TO 32 STEP 2: HLIN 

4, 6 AT X: mXT X 

51 PLOT 4,29: PLOT 6,31 

53 COLOR= 1: HLIN 3,6 AT 20: VLIN 21,23 AT 
4: HLIN 3,6 AT 24: VLIN 21,23 AT a 



70 REM * TPJlCE LA GRILLE * 

72 CS - O.-CG - 13:CJ = 12:FAC - OiDKM = 0:PC 
= 2:TD = 15 

lA cnr.oR^ oniF.CR = 7 

?e FOR X = 14 TO 23 STEP 2 

77 VLIN 10,12 AT X: VLIN 14.28 AT X: VLIN 3 
0, 32 AT X 

7a HLTN 10,72 AT X: HLTN 14,29 AT X: HLTN 3 

0,32 AT X 
SO NEXT X 

82 COLOR= 0: FOR X 4 TO €: VLItf 12,15 AT 
X: NF.XT X 

85 COLOR= 12: VLIN 12,16 AT 4: HLIN 5, S AT 

12: PLOT 5,14 
SO S = FRET {0) 

94 T2$ = " J -> JEU NORMAL F -> FACILE" 
96 T4$ = " D -> DEMONSTRATION S -> isTOP" 
100 REM * Lit 1st souris * 
1 02 HOME 

105 COLORS C3: PLOT X, y 

110 VTAB 21: PRINT T39: VTAB 22: PRINT T4$ 
12Q INPUT "";X,Y,3 

125 X = INT {X / SO :Y = INT (Y / SC) :CS = 

SCRN( X,Y} 
13Q IF S ^ 1 THEN 150 

) 
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135 

13$ 

140 

150 
155 

160 

165 
170 

175 

180 
200 
202 
205 
210 

215 

220 
225 
235 
238 
240 

242 

248 
250 
£55 
260 
265 
270 
275 
280 
400 
405 
410 
412 

415 
420 
425 
430 

431 
432 
434 
440 



445 
450 
452 
455 

4f;o 

461 



COLOR" CJ: FCR A - TO 20: PLOT X,Y: N 
EXT A 
GOTO 105 

RF.K ** SGURIS CLIQUES _ CHOIX On TIR * 
*. 

IF y < S THEN 200 

IF X = > 14 AND X <: ^28 AND y = > 1 
4 AND Y < =28 AND F.CR = 2 THEN 850 
IF X < 10 OR X 32 OR r < 10 OR Y > 32 

OR CS = TUF.N W5 
COLORS CJ 

TV X < 14 OR X > 28 THEN 400: REM LI 
GNE 

IF Y < 14 OR Y > 2S THEN 600: REM CO 
LONNE 
GOTO 105 

IF r > 26 THEN 900 

IF ECR = 2 THEN 250 

IF Y < 10 THEN CJ = 11: GOTO 220 

IF Y > 10 AND Y < ia TMF.N FAC = 1:PC = 

1 : GOTO 220 

IF Y > IS AND Y <r 2 6 THEN FAC = 7 :DEM - 

1:FC = iriv = 30 
GOSUB 750 

IF DUM = 1 THKN GOSUB 800 
T3$ = "C -> CONTINUER, J -> REJOUER" 
T4$ = "D ~> DONNE LES SOLUTIONS" 

COLOR= 0: FOR X = 4 TO 6: VLIN 12,16 AT 
X: NEXT X 

COL0R= CJ: VLIN 12,16 AT 4: HLJN 5, € AT 

12: HLIN 5, 6 AT 16 
HOME :ECR - 2: GOTO 105 
IF Y < 10 THEN 70 
IF Y > 10 AND y < 13 THEN 270 
IF Y > 18 THEN GOSUB 800 
GOTO 105 

IF CJ > THEN 105 
T3$ - "XL N'Y A PLUS DE COULEUR" 
GOTO 105 

C-0:I-0:J=0 

= - J :XX » 30:C = / 
/ 2} :YY = 14 + 2 * L 
IF A < > CG AND A > 
JT: GOTO 412 
CHR$ (7} 



1 THEN Y 



12 : ST 



(C - 7 AND ST 
725 



ST = 1 :XX - 1 

IF X > 28 THEN ST 
L = INT ( (¥ 14) 
A = SCRN( KX.YY) : 
THEN XX = XX 

PLOT XX, YY: PRINT 
I = I + l;J-J-fl- 

IF FT (CD = 1 THEN 725 

IF !C = AND ST < 0} OR 

> 0} THEN 490 

IF FT{C i ST,Lf - I THEN 

IF L ^ THEN 460 

IF L - 7 THEN 470 

IF I = 1 AND (FTIC.L + 1) ^ 1 OR PT(C,L 

- 1) = 1) THEN C " C - ST:ST ^ -ST: 
GOTO 4 94 

IF PT(C + ST,L + 1) = 1 AND FT (C + St, L 

- 7} = 2 THEN ST = - ST: GOTO 480 

IF FT(C + ST,L + 1) = 1 THEN 1 = 1 + 1: 
ST = - J : GOTO €20 
IF PT(C + ST,L " 1) 
ST 1: GOTO 620 
GOTO 480 
REM r.igne 
IF I = 1 AND PT(C,L 



1 THEN I ^ I + 1: 



i- 1} = 1 THEN C 



1} 



1 THEN C ^ C 



30: ST 



L:CO = SC 



IF A < > CG AND A 
GOTO 505 



THE 



> 



> 



0:J = 0:1 = 0: REM C 



30:L = 
14 i- 2 * 



ST:ST = -ST: GOTO 4S4 



4e4 IF PT (C + ST,L + 1) 

= - I; GOTO 500 
465 GOTO 4S0 
4 70 REM Llqne 7 

471 IF I - 1 AND rT(C,L 

- sr.- ST - - ST; GOTO 494 
475 IF PT(C + £T,L - 1} - 1 THEN 

= 1 : GOTO 500 
480 IF FAC - THEN 490 
482 XX 14 + 2 * C:YY = 14 + 2 * 

SN ( XX, YY} 

485 FOR A ~ 1 TO TD: PLOT XX, YY: NEXT A 
488 COLOR- CO: PLOT XX, YY: COLOR^ CJ 
490 C = C ST: IF C > =0 AND C < = 7 
N 420 

494 X ^ 14 -I- 2 * CiY = 14 + 2 * L 
496 A = SCRN( X, Y) : IF A < > CG AND A 

THEN X = X + ST: GOTO 496 
493 GOTO 720 
500 X = 14 + 2 * C 
505 A = SCRN ( X, Y) : 

THEN Y = Y + ST: 
520 GOTO 720 
600 ST = l.-yy = 12:L 

OLONNBS 

605 IF Y > 28 THEN ST = - 1:YY 
610 C = INT ((X - 14) / 2): XX 
612 A = SCRNf XX, YY) : IF A < > CG AND A > 

THEN YY = YY - ST: GOTO 612 
615 PLOT XX, YY: PRINT CHR$ (7) 
620 J = J+ I;r=X+l 
S25 IF PT(C,L) = 1 THEN 725 

630 IF (L ^ AND ST < 0} OR (L = 7 AND ST 
> 0) THEN 690 

631 IF PT(C,L + ST) = 1 THEN 725 

632 IF C = THEN 650 
634 IF C = 7 THEN 670 

640 IF J = 1 AND (PT(C + 1,L) =1 OR PT (C - 
l/L) = 1) THEN L = L - ST:st = - ST: 
GOTO 6S4 

645 IF PTfC +1,1, + ST) = 1 AND FT(C - L,L 
+ ST) =1 THEN = - ST: GOTO €30 

650 IF FT(C + 1,L + ST) 
ST = - 1: GOTO 420 

652 IF PTiC - 1,L + ST) 
ST = 1: GOTO 420 

655 GOTO 680 

€S0 REM Colonno 

661 IF J = I AND PT(C + 1,L) 

- ST: ST - - ST: GOTO €94 

664 IF PT(C + l.L + ST) 1 THEN X - 12:ST 

- - 1; GOTO 700 

665 GOTO 680 

670 REM Colonne 7 

671 IF J - 1 AND PT(C - 1,L) = 1 THEN L = L 

- ST: ST - - ST: GOTO 694 

674 IF P.T(C - 1,L + ST) = I THEN X = 30:ST 

- J; GOTO 700 

€80 IF FAC = THEN 690 
682 XX = 14 + 2 * C:YY = 14 +2 * L:CO 
SN( XX, YY) 

685 FOR A =■ 1 TO TD: PLOT XX, YY: NEXT A 
688 COL0R= CO: PLOT XX, YY: nOLnj)= CJ 
690 L L + ST: IF L > =0 AND L < =7 
M 620 



= 1 THEN J ~ J + 1: 



1 THEN J = J + 1: 



1 THEN L = L 



- SC 
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694 X = M + 2 * r.^y ^ 14 +2 * L 

59€ A = SCRN( X, Yj ; IF A < > CG AND A > 

TnEN Y ^ Y i- ST: GOTO ffg^T 
e9e GOTO 720 
700 Y - 14 + 2 * L 

705 A = SCRM( X,Y} : IF A < > CG AND A > 

THEM X " X + ST: GOTO 705 
720 PLOT X,Y; PRINT CHR$ (7): REM Fin de 

Tir 

725 CJ = CJ - PC: IF CJ <' =0 THEN CJ 

3$ = "JL N'Y A PLUS DE COULEUR" 
72C GOTO 110 

750 REM * PLACE LES ATOMES * 
755 FOR I - Q TO 7: FOR J TO 7 
760 PT {I, J} = : UEXT J, T 
770 FOR I = 1 TO 3 

775 C = im (6 * kND njJ.T. - TNT (6 * R 
ND (!}) 

778 IF PTfC^L) = 1 THF.M 775 
750 PT(C,L) = 1: NEXT I 
790 RETURN 

800 REM * Ss-Pr REPONSE * 
805 COLOR= 1 

810 FOR I TO 7: FOR J = TO 7 

812 IF PT(I,J) - THEN 840 

820 Z = 14 + 2 * l:ZZ = li + Z * J 

830 PLOT Z, ZZ 

840 NEXT J, I 

845 RETURN 

850 REM Test des solutions 
852 HOME :CS = SCRN ( X,Y) 
860 COLOR=^ CS: PLOT X, Y 

3£4 VTAB 22: PRINT "ClIQUER HORS CADRE POUR 

REJOUER" 
866 INPUT "",-X,Y,S 
870 X - INT (X / SC) :Y = 

SCRN( X, Y) 
872 COLOR= 14: FOR A = 

EXT A 
874 IF S < 
B7C IF X < 
878 IF X < 
OR CS 



INT <Y / SC) : CS = 
TO 20: PLOT X,Y: N 



> 1 THEN 860 
8 AND y > 26 THEN 900 
14 OR X > 28 OR Y < 14 OR Y > 28 

- TI{BN HOME : GOTO 105 



880 I = INT ({X - 14) / 2): J = INT ( (Y - 1 
4; / 2) 

884 IF PT(I.J) <r > 1 THEN 860 
88 6 COLOR" 14: PLOT X,Y 

888 FOR A - 1 TO 3: PRINT CHR$ (7): NFXT A 
890 GOTO 866 

900 TEXT HOME : RTAB 8: PRINT "FIN DU JEU 

902 PRINT D$: "PRi 4": PRINT CHR$ (0) 

904 PRINT D$; "PR* 0" 

905 PRINT DS:"INi 0" 
91 END 

Programme LASER. BAS 

5 REM 

10 REM LANCEMENT DU JEU LASER. MOUSE 
15 REM 

20 TEXT : HOME ;£?? = CHR^ (4) 

30 VTAB 6: MTAB 15: IN^/ERSE : PRINT "LASER. 

MOUSE": NORMAL : PRINT : PRINT 
40 PRINT "Pour pouvoir jousr, vous devez av 

air:": PRINT 
45 PRINT " - Un Apple //c ou //e Bvec 65CQ2 

ff 

50 PRINT " - Vne souris connsctee en Slot 4 
(//e) " 

52 PRINT ■• Un moniteur ou TV couleur" 

55 PRINT : PRINT "Si vous ne remplissez pas 

ces sanditlons" 
60 PRINT "frappez ESCape ou CTL-C, si OK RE 
TURN": PRINT : HTAD IS: PRINT " — > " ; : 

GET A$ 

70 IF A? = CHR$ (27) OR A$ = CHR$ (3) THE 
N 100 

SO PRINT : VTAB 8: CALL - 950: PRINT "Ch^r 

gs LASER. SBR" 
82 PRINT D$"BLCAD LASER . SBR, A$ 7 000" 
85 PRINT ■' Charge et lance LASER. MOUSE" 
90 PRINT D$"BRUN LASER. MOUSE, A$ 6000" 
95 CALL 24576 
1 00 notiE 



D^sassembfage 

Recapitulation 

LASBR.MOUSE 

Apres avoir saisi ces tn)is coionnei de 
par: 

BSAVE LASER. MOUSE, A$6Q00. IS343 
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On trouve plus Mement 

avec 10 ans 



Certaines evolutioris sonl aussi 
im portantes que des revolutions. 

plus (iiffidlp qnand on dehiite, 
c'est de d^buter. Car toutes les 
propositions d'emploi demandent une 
certaine experience, Chercher un 
emploi est done un probleme 
insoluble. Pas pour I'Apple lies, 11 
debute avec 10 aiis d'experieiicti. 

Comment? C'est trfe simple, 
il a une architfctiire double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 
un Apple II classique et miniaturist, 
!! profite ainsi de 10 ans de 
developpemeiit de logicieis et 
d'experieEice. Un grand progr^s realise 
en partie grace au raicroprocesseur 
65C816, un l6 bits descendant du 
65C02 de I'Apple I!. L'Appk IIgs fonc- 
tionne a deux vitesses : 2,8 IVlHz en 
mode natlf ; en mode Emulation 
(c'cst-a-dirc lorsquc vous utillscz un 



programme de votre anclen Apple II) 
vous avez le choix entre 1 MIIz et 
2,8 MHz. 

Dcbutcr connu . c'est 16.000 propositions 
d'emploi 

Avcc ri\™ (Integrated Woz 
Maciiine*) I'Apple IlGii peut recevoir 
iiidiHereniiiieiit desj leeleurs de 
disquettes 3,5 pouces 800 Ko ou des 
lecteurs 5,25 pouces 140 Ko, oules 
faire cohabiter, ce qui contribue a vous 
faire profiter de la plus grande 
bibUothfeque de logicieis du monde. Le 
nombre de 16.000 logicieis ttant cstimatif 
car la seule cbose qti'iin Apple lies .soit 
incapable de calculer. c'est le nombre 
d'emplois qu'il est capable de tenk 

Avec le nouveau systeme 
d'exploitation ProDOS, I'Apple liGS 
permet la hierarchisation des fichiers 
et des catalogues a la maniere de 
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un emploi quand on debute 
d'experience. 




Macintosh, et la connexion de 
noiivfaiix penpheriqiies. 

G ets , ceia veut dire cra phi gue et son. 

L'ima^nation d^bridfie des 
d^veloppeurs sufSra-t-elle pour utiliser 
les 4096 nuances de coiileurs 
disponibles? C'est probable. Ce qui est 
certain, c'est qu'nne resolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour l6 
coiileiirs va donnpr beaucoup de relief 
k certaines demonstrations. Si vous 
n'en croyez pas vos yeux, vous n'en 
croirez pas vos oreiUes non plus. Le 
coprocesseiir "son" choisi par 
Apple a deja une briliante carriers 
derriBre lui puisqu'il est employ^ par 
les plus grands synthettseurs du 
matche. C'est I'ENSONIQ, capable de 
gfinerer l6 voix, 



et il ne lui manque mfime pas la parole. 

Les relations necessairei pour reussir 

Rn 10 annees, I'Applp II a en tout 
le ioisir de se faire d' excellente.<; relations 
de travail, imprimante, modem, disque 
dur. que I'Apple lies contlnuera a 
entretenir et developper ; celui-ci peut 
desormais §tre connect^ au reieau 
AppleTalk el gerer la LaserWriter 
rSservee jusqu a present i Macintosh. II 
peut aussi recevoir le disque dur SCSI. 

L'ApplellGS poss^deT connecteurs 
d'extension permettant, a I'aide d'une 
multitude de cartes d'interfaces, de le 
rclicr a tous les types d'unltcs pcripheriques. 

Acheter un Apple, c'est entrer dans 
le Club Apple pour ^changer des informa- 
tions, acceder au support technique par 
t^l^phone 7 jours sur 7, ou aux ser\'ices 
tSl^matiques du Club. 



Apple presente TApple IIgs 
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A la redaction de Pum's, Ics 
pauses — rares et studieuses (1) 
— sont souvent consacrees a la 
cin^matique des spheres, 
entendez le biUard sui Macintosh. 
L'objet de notrc passion est Ic 
Billarri Parlniir, freeware de 
Crandall, Gillespie ct Lew niis h 
votre disposition sur la disquette 
'Mac r. La qualitd de ce 
programme nous incite a vous le 
presenter plus en d6tail, 



Presentation 

La copie d'ecran ci-contre illustre 
la qualite de la presentation de ce 
jeu bien realiste. Dispose au 
centre de I'ecran, le tapis vert, 
au-dessus, le comptenr de points 
et en haut, le bouher. 

A I'aide de la souris, on fait 
apparaitre la queue de billard et 
on lui donne Tangle voulu ; la 
force de Timpact est detemiinee 
par la position de la souris. Tout 
cela est tres instinctif. II ne faut 
pas taper trop violcmmcnt : outre 
que le realisms en sotiffre, les 
billes pourraient passer les unes 
an travers des autres sans que le 
prograiinne ne gbic un choc. 

Comme bien des freewares, le 
mode d'emploi et le programme 
sont en anglais, mais ce jeu est si 
connu que ccla nc dcvrait pas 
constituer un obstacle. 

Les possibilites 

Outre le jeu standard, il est 
possible de positionner les billes 
comme on le souhaite pour 
etudier un coup. 

Veffet donne a la bille est mate- 
rialise par un point sur un disque, 
point a positionner avant de 
joucr. A d^faut, ce point est au 
zero theorique, c'est-a-dire sans 
effet : le 'retro' s'obtient en tapant 
plutot au bas de la bille. De la 
meme maniere, on peut doser 
I'effet lateral, 

Un bruit de collision qui rappelle 
fidelement celui de I'ivoire est 
genere a chaque impact ; on peut 
le supprimer. 

Le compteur evite toute ambiguiitd 
sur J'obtention des points mai.^. 



en billard frangais, il ne 
fonctionne qu'en 'trois bandes'. 

Possibilites qui n'existent pas 
dans les traditionnellcs salles dc 
billard : annnler et reprendre un 
coup, mais egalcment lejouer un 
coup pour en controler les 
trajectoires ; un menu cn propose 
le trac^. 



Les billards 

Ce programme est complct : il 
propose le jeu ; 

' avec les 3 billes du billard 
frangais ; 

• avec 9 ou 15 billes numcrotees 

jnuer dans I'ordre) ; 

• avec 15 billes numcrotdes et 6 
non numdrotees : 

• avec 3, 6, 9, 10 ou 15 billes 
non numerot^es. 

• Lag, qui est un exercice de tir 
de prdcision. 

Une loupe est disponible pour 
controler les numeros des billes 



numerotees mais ils sont en fait 
lisibles. 

Le programme 

Ecrit en Rascal (2), il ne laisse 
pas de place au hasard : les 
coordonnees, les vitesses, 
I'analyse des collisions compte 
tenu de I'effet donnfi et les 
trajectoires font l'objet de calculs 
math^matiques (toujours sur des 
entiers 16 bits pour une question 
de rapidite). Le help donne, en 
anglais, des informations sur la 
methode de calcul des collisions. 
L'af¥ichage des billes est realist k 
I'aide dc deux images pour 
donner une impression de 
rotation, mais il est un peu lent 
lOTsque 21 billes sont sur le tapis. 

(1) Pr&isions i I'aneniion du RSdacieur 
en Chef. 

[2 Rascal de Melarcsearh Inc. 1 1 00 SE 
Woodward, Portland, OR 97202 
St2ts-Unis. . 
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fMppe Matfikii 

NoU5 supposcrons dans cci article Ic Icctcur connait deja 
TTiinkTank on, pour le moins, les principes de fonctioimemem dcs 
prograinmes de gesiion d'idees doni ThmkTank a ete le premier et 
brilliint exemple. 

Point fort : More et le Macintosh 

More, dignc succcsscur dc ThinkTank, poas«le par rapport & son 
pr^dficesseur un fonciionnemeni plus "Macintosh", notammcnt 
grace k son utilisation dcs ascenscurs. II possede aussi unc plus 
grande soupksse dans la reorganisation, a I'aide de la souris, de la 
hierarchic dcs iddcs. Rcmarquons cnfm la possibilit6 d'ouvrir 
simulLanemcnt plusieurs fenctres ct dc CopierAI^oller encre elles. 

Point fort : presentation variee des documents 

Outre les classiques lisie et table des tnaiicrcs. More propose un 
dessin des litres et sous-tilres sous la forme d'un organigramme, 
ainsi que la "projection" dc planches et tableaux pour les 
conferences ou louie uiilisalion similaire. 

Ces tableaux peuvent defiler. sok a iniervallcs rcgulicrs, soit a ]a 
commande. On defilement rapide permei de creer une sorie 
d'aiiunation. 11 est trcs aiscc dc toiler dans More des dessins et 
graphiques crces par d'autres programmes, par exemple MacPaint 
cm MacDraw, el aussi par lui-meme (organigramme colle commc 
dessin). Par ailleurs. More dispose de notnbreuses options de 
polices caractcrcs, styles, cadres ct mcmc dc I'impression en 
couleurs sur I'lmagcWriiei U. 

Point fort : grande puissance d'organisation 

• possibilite de creer des "clones", des doubles d'une selection qui 
seront modifies si I on modifie I'original (et inversemenl) ; 

• "niafquagc", cn liaison avcc la recherche automa.tique, permettant 
de regroupcr des litres ayant un certain conienu ; 

• creation et utilisation de modeles (gabaiils) reutilisables dans 
divers fichiers. 

Point fort : autres fonctionnalites utiles 

More possede dc laigcs facilitcs d'cchangc avec d'autres logiciels : 

• accueil de doctimenLs provenanl d'autres logiciels, y compris 
lui-meme, avec possibilite d'insertion de ces documents dans le 

document courant ; 
" crivui dc dytuiuwjls vcis d'auties logiciels ; 

• gestion interessante du temps : calendrier, dates, heures. 

Le nuiuerotagc lelephoiiiquc aulomatlquc est possible, pour ptu 
qu'on utilise im modem autorisaitt ce tjrpe d'operation. 

Inconvenient : impression 

II est impossible de placer volontairement dcs sauts de page a 
I'impression, de sorts que les coupures se prodiiisRnt dp, faijnn 
systcmatiquc quand la page est plcinc {c'eat-ii-dire gen«aJement au 
mauvais endroii). 

Inconvenient : Ten^tres de texte 

Le traitement de texte reste assez rudimentaire. On ne peut par 
exemple pas changer les caracteres, la taiQe ou le style d'un mot ou 
d'un groupc de mots k I'intericur d'unc mcmc fcnctrc. 
Heuresemeni, c'esi possible d'une fenetre a l autre. On ne peut pas 
non plus voir a I'ccran ce que sera I'apparence d'un teste apres 
justification, celle-ci n'intervenant que lors de I'impression. Par 
ailleurs, ks fenctres dc tcxtc nc pcuvcnl eire ouvertes qu'unc a unc, 
aprfes avoir selectionne les sous-tilres correspond ants, ce qui es: 
particuli&rement fasti dieux. 

Quelqueit "gudgvlii" ituperflus 

On peut se demander par ailleurs si certains gadgets, qui 
compliqucnt inutilancnt Ic maniement du logiciel, n'auraicnt pas pu 



STRUCTUREXPERT 



TM 



La solution pour programmer de maniere 
strjcturee en MSDASIC ™ et ZBASIC ™ . 
STRUCTUREXPERT™ vous permet de 
disposer d'un ensemble (j'analyses 
qui peuvent etre visualisees (fenetres 
"scrollahles"). sauvees separemenl sur 
fichiers, ou irriprim^es : 

. Arborescerice compleLe (descendante 
ot asccndanto) des appels GOSUB et 
CALL 

. Listes Iriees sur plusieurs types de 
criteres des GOSUB et dm CALL 

. Statistiques : trequGnce d'appel de 
uhaque routine, 

, Detection d'erreurs logiques (boucles 
non controlees, recursivite lllegale, 
labels el routines non utilises). 

STRUCTUREXPEHl 495 F TIC + 20F de port 
Paiements par CB ou clieques adresses a 
Q.S.I. 149, rue OBERKAMPF 75011 PARIS 
tel : (16)142493795 



ctre suppnmes : 

♦ irois modes dc divisivus en fenetres ; on nc voit pas a quol scit la 
division en diagonale ; 

• liop souvent. trois melhndes pour obtenir le meme rcsultat ; par 
exemple, pour la commande Etendre, qui peut etre mise en 
ocuvre par un menu dfiroulant, un clic ou. uiic wjimuaiide clavier. 

Bicn que mise en relief par I'auteur du programme, la possibilite 
d'associer des valeurs i des sous-tittcs et de les additioner 
auiotnatiquemeni en remontant la hierarchic des litres ne sentbk pas 
passiomiante. 

Attention, danger : les simulations 

II a'exite pas de commande d'annuiation de i'opfiration precedente, 
comme c'est le cas maintenant dans pratiquemenl lous Ics 
programmes Macintosh, C'est une lacune. 



Conclusion 

More est un pioduit original et puissant, mais il serait bten agrcablc 
d'avoir rapidemeni une version More 2.1 dans laquelle la plupart 
des problemes que noui avons indiques ci-dessous seraient 
rfsolus. 



Pom's recherche pour les 

mois dejuillet et/ou aotit un ou deux 
stagiaires. Bonne maifrise du 
Macintosh, du. franqais et de 
I'orthographe requise. 
Envoyez voire CV d Ilerve Thiriez, 
Editions MEV, 12, rue d'Anjou 78000 
Versailles avant le 15 juin. 



Pom's 30 



J 

41 




%an-LviC ^mnt^u 



O 

o 



T_Pom's 9Ainiid, 'Macintosh & itll 



"TPom's", qui r^pond a line 
Lriipoitante demandc, autorisc la 
recuperation de I'annuaire electro- 
nique sous la forme d'un flchier 
'texte' directement exploitable. 
Ce programme permet aussi, 
accessoirement, Ic traitcmcnt dc 
fichiers crees fi partir riu 
programme "Minitel" (Pom's 
num^ro 27). II s'agit d'une 
application autonome ecriie en 
assembleur MDS 68000, 
fonctionnant sur tous les 
Macintosh et ce quel que soit 
I'environnement. Comme pour 
les programmes "Minitel" et 
"InterPom's" (Pom's num6ro 28) 
un cSble-interface Minitel/ 
Macintosh est requis ; si vous ne 
I'avez pas ddja, vous pouvez le 
fabriquer en vous aidant des 
schemas publics dans les 
numeros 27 ou 28 de Pom's ou, 
si vos dons ou votre temps ne 
vous le peniietient pas, on peut 
aussi commander cette liaison 
indispensable directement k la 
rcvuc. Pour cela, vous trouverez 
un bon de commande page 75. 



Utilisation 
de TPom's 

Le programme utilise quatre 
menus deroulants ; voici le 
premier : 
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Nouveau... 

L'anicle 'Nouveau...' de ce 
menu sera employe pour choisir 



le nom du fichier destine a 
reccvoir les informations cmises 
par TPom's, Les fichiers ainsi 
crccs portent Ic type 'tcxie seuP 
MacWrite/DiskWrite (TEXT 
MACA), done 'double 
cliquablcs' ct cxploitablcs avcc 
n'importe quel logiciel capable de 
trailer ce format. Une fois le 
choix du nom effectue, il 
s'afflche dans la barre de titre de 
la fenetre. Si le programme ne 
trouve pas de fichier ouvert, la 
barre de titre contient la mention 
'Pas de fichier ouverf. 
L"equivaleiu clavier' dc cet 
article est 'Commande-0'. 



Fermer 

Nous trouvons rarticle 'Fermer' 
valide dans deux cas : 

* un accessoire de bureau est 
affiche et actif. Dans ce cas, 
une action sur cct article - ou 
son equivalent clavier 
'Commande-F' ferme I'acces- 
soirc cn question ; 

• un fichier est ouvert. Le 
traitement consistc alors en la 
fermeture du fichier courant, le 
remplatement du nom de 
fichier dans la barre de titre par 
la mention 'Pas de fichier 
ouvert', et le changcmcnt dc la 
forme du curseur. 

En effet, comme le programme 
peut foncLio[Uicr vide' ci afbi 
de bien marquer I'ouverture - ou 
la non-ouvenure d'un fichier. les 
curseurs ont des formes 
differentes selon les : 

* curseur en forme de roue si un 
fichier est ouven (ideniique k 
celui employe pour I'accessoire 
de cryptage "Krupios" du 
precedent num^ro de Pom's) ; 

♦ curseur en forme de 'sens 
intcrdit' si i! n'y a pas de 
fichier ouvert. 

Un eventuel fichier ouvert sera 



aussi ferme si : 

• le choix d'un autre fichier e<3 
effectue ; 

• I'utilisateur quitte le pro- 
gramme. 

Numeros 

Si Ton veut se constituer un 
fichier d'adresses, on souhaitera 
conscrvcr Ics numdros de 
telephone. Cependant, les 
numeros de i^l^plione.s sunt 
parfaitement inutiles lorsqu'il 
s'agit de faire un 'mailing'. 
TPom's permet done, grace a 
['article 'Numeros', de choisir le 
format de stockage : avec ou sans 
numeros. 

Dans le cas d'un stockage sans 
numero. le format du fichier 
comprend quatre zones separees 
parun 'retour-chariot' : 

1 Nom 

2 Pre nom 

3 Adresee 

4 Ville 

Four un stockage avec numeros, 
le format comprend cinq zones : 

1 Nom 

2 Prenora 

3 Adresse 

4 ville 

5 Numero de t^l^phone 

Afin de faci liter ie traitement du 
fichier d'adresses par un 6ventuel 
autre programme, chaque 'fiche' 
estpr^c^dte par une 'puce' (•), ei 
ce quel que soit le format utilise 
(avec ou sans numero.s), ce qui 
nous donne par exemple, sans 
numeros : 
« 

Electriclte de France-Gaz de 
France (E.D.F-G.D.Fl 

46 hd St Antoine 

LE CHE3NAY 

* 

Elect ricite de France GslZ de 
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France 

1 bd Jean Jaurss 
HODILLEE 

Societe Agricole d ' Elect ri citS 
de la Kegion d'urgerus 

TACOIGNIERES 

ct, avcc nuin^ros : 

KlRchrirritR rip frAnc-H-fi^^ de 
France (E . D . F-G. D . F) 

4G bd 3t Antoine 
LE CHESNAY 
(1) 39 54 90 10 
« 

Electricite de France Gaz de 
France 

1 bd Jean JaurSs 
HOUILLES 
(1) 39 13 2A -10 

Socictc Agricole st ' Elect ri cite 
de la Region d'Orgerus 

33 r Gats 
TACOIGNIERES 
(I) 34 87 22 17 

Lorsque I'option 'avec numeros' 
est valide, rankle corrcspondant 
apparait t:oche et, pendant k 
traitement, les numeros de 
telephone s'affichent a I'ecran. 
Par ddfaut, Ics numdros ne sont 
pas conserves. Norons enfin que, 
conune il est possible de changer 
de format a tout instant, un meme 
fichier pent contenir des 'fichcs' 
avec et sans numeros de 
telephone. 



Edittoit 


nnnuier 




Couper 




Copier 








Effacer 



TPom's n'a pas recours au 
'Couper/Copier/Coller' ; le menu 
Edition n'cst done \k que pour 
repondre aux exigences - 
legitimes - du 'User Interface 
Guideline', et ne deviendra valide 
qu'en presence d'un accessoire 
de bureau actif. 



Source 







Fichier 'Pom'.t 27'..- 






Minitel 









Fichier 'Pom's 27'... 

. . . sera utilise si I'on desire traiter 
un fichier cree par le programme 
du num^ro 27 de Pom's. La 
fenetre standard de selection 
s'affiche, ne laLSsant apparaitre 
que Ics noms dcs fichicrs cites 
plus haut. Une fois la selection 
faite, TPom's fait rapidement son 
travail, ne 'rendant la main' qu'i 
I'achevemem de la tache. 

Minitel 

Dans ce cas. les informations 
trait^es proviennent du Minitel, 
via I'interface serie 'communica- 
tion' du Macintosh. Ce sera 
cenainement la maniere la plus 
courante d'eniployer TPom's ; 
c'est pourquoi elle est celle valide 
par defaut. 



Quitter 










oers le 'Finder' KQ 
I uers une application... 3£fl 



TPom's offre deux fa^on de 
.sortir du programme : 

• en provoqiiant iin retnur au 
'Finder' (mcthode courante) ; 

• en proposant I'appel direct de 
I'application de votre choix. II 
n'est pas n^cessaire que 
rapplication a appeler snit sur 
un volume 'en ligne'. 

II est possible d'uiiliser les 
Equivalents claviers Comman- 
de-Q et Commande-A. 

Problemes 
possibles 

Prise cn comptc 
dcs informations 

TPom's ne prend en cnmpte les 
informations issues du Minitel - 
ou puisees dans un fichier 



'Pom's 27' - que lorsqu'il revolt 
le premier nom de ville. 
Autrement dit, si vous lancez 
TPom's pendant que vous 
consultez, par exemple, la liste 
des plombiers de. Paris, il n'y a 
aucuue chance pour que le nom 
de la ville change, et notre 
programme ne va rien retenir. 
Pour eviter ce genre de situation, 
il est preferable de faire demarrer 
TPom's avant de commencer la 
consultation de I'annuaire 
electroniquc. Une autre methodc 
permet de se sortir d'embarras : 
appuyer sur la touche repetition, 
ce qui oblige le serveur des PTT i 
reemettre, entre autre, le nom de 
la ville, declenchant ainsi la prise 
en compte des informations. 

Informations erronees 

L'annuaire electronique ne 
propose pas de zones fixes - sauf 
pour le numero de telephone - 
dans lesquelles TPom's aurait pu 
puiser. Notre programme fait 
done de son mieux en anaiysant 
la multitude de codes qui lui 
parviennent. Dans ces conditions, 
il peut arriver (en fait, il arrive !) 
que certaines informations 
stuckees dans le fichier texte soit 
erronees. De ce fait, un petit coup 
d'ocil dans le fichier avec un 
logicicl de traitement dc tcjcte pcut 
s'averer utile. 

Zones 

Bien qu'6iant affich^s dans la 
fenetre pendant le traitement, les 
departements ne sont pas 
enregistres, ceux-ci ne presentant 
pas d'intejet. 

L'annuaire electronique n'indi- 
quant pas le code postal, il sera 
ncccssaire, pour un 'mailing' par 
exemple, de faire un remplace- 
ment systcmatique VILLE — 
CODE POSTAL / VILLE. 

Mauvaise connexion 

Le programme aura des 
difficult65 k fonctionncr si Ic 
cable de haison est mal - nu pa.s 
con ncctc Afin d'eviter cela, le 
programme utilise des curseurs 
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Nom : PTT Paris 
Prenorn : comediens des PTT 
Rdres$e:tS1 au Chaisy 13e 
UiEle : PRRIS 
Deparlemeni : PARIS 

Numero : (1) 47 07 57 42 

Sources et fichiers du programme "T_Pom's" 

* le symbole 'J' indique la continuite d'une Ugne. 



qui doivent s animer a la 
reception du moindre caractere. 
Si tel n'est pas le cas, une 
verification de la 'connectique' 
s'lmpose. 





FichierT.Fom's.Job' 

ASM T_Pom's.Asm Exec Edit 

LINK TlPoin's.Unk Exec Edit 

RMAKER T I'om's.K hinder hdit 



Fichier 'T_Fom's.Link' 
) 

/Ou tput T_Poin ' E.Code 
/Type TEMT' 



Source T Foni's.Asm' 



INCLUDE 
INCLUDH 
INCLUDE 



T_Poin's/l Asm 
TPom's/ZAam 
T_Pom's/3Asm 



Zero 

Un 

Deux 

Trois 

Quatre 

Debut 
BSR.S 
BSR 
B5R 
BSR 
BIU 



EQU 
EQLT 
EQU 
F-QU 
EQU 



IniliaUsations 
Mcnu£ 

Ouvertureh" 
Fvenements 



Initialisations 

PEA -4(A5) 

JnitGraf 

_InitFonts 

MOVE.L J(S0OO0FFFF,DE) 
_FliishEvents 

JnilMenus 
CLK.L -(SP) 
JnilDialofis 
_TETiiit 

PEA Curecurlbis 
_SetCur5iJi 



INCLUDE 


T Pom's/iAsin 


SUBQ.L 


»4,SF 


END 










_TickCouii1 










MOVEX 


(SPJ+J 










CompteurTimingtAS) 


bource r_l'oin s/l-Asm 


MOVE 


9 1 ^'iimcro_Curseurf A 5) 








SF 


DrMeiiuFichier(A5) 


INCLUDE 


FSEqu-Txt 


ST 


DrMinitelCAS) 


INCLUDE 


Traps.Txt 




ST 


DrComl{A5) 


INCLUDE 


SysEqu.D 




ST 


DrLPTiValJde(A5) 


INCLUDE 


ToolEqu.D 


SF 


DrNuinei0(A5) 


INCLUDE 


QuickEquD 


SF 


DrDppart(A5) 


INCLUDE 


PackMaca.Txt 


SF 


Di<:ouleur(A5) 








SF 


DrNumero_en_cou rs(A5) 


MenuPomme 


EQU 


1 


SF 


DrLlgnefAS) 


mAPnopcs 


EQU 


1 


SF 


DrColonne(A'i) 


MenuFichier 


EQU 


2 


SF 


DrRepcrefAS) 


mN'ouveau 


EQU 


1 


SF 


DrAltetite AffJchage _I 


mFermer 


EQU 


3 




Vill£!(AS) 


RiNumera 


EQU 




SF 


Dr_Atletite_Vilie(A5) 


Menu Edition 


EQU 


3 


SF 


Dr_AllenleJ 


itiAnnule]' 


EQU 


1 




Departe[nent(A5) 


mCouper 


EQU 


3 


SF 


Dr_Attente_Prcnoin(A5) 


mCopier 


EQU 


4 


SF 


DrAttenteJ 


mCollcr 


EQU 


5 




Kom_SuiWAS) 


mEf facer 


EQU 


7 


SF 


Dr__Altente_Adr(isse(A5) 


MenuSouree 


EQU 


4 


SF 


DrAtiichage(A5) 


mPonis27 


EQU 


1 


SF 


Copie_Affichage(A5) 


mMinitel 


EQU 


2 


SF 


Copi e_Af fi chage+ 1 28( A5) 








SF 


CtJpie_AIfji.!iage+2S6CA5) 


MenuSortie 


EQU 


5 


SF 


Co pi e_Af fi chagc+3 84 ( A5) 


mQuitter 


EQU 


1 


SF 


Copie_Affichage+448(A5) 


mApplication 


EQU 


2 


SF 


Copi e_Af fichage+Sl 2{ A3) 






BSR 


Zvm Clidines Nom 


DialogAPropos EQU 


1 


MOVE 


#DILoad,-CSP}" 


DlalogBis 


EQU 




Pack2 




bOK 


EQU 


1 


RTS 





Mollis 

SUBQ.L WQuatre^P 
MUVE #MenuI'ommG,-CSP) 
_GeIRMenu 

JHOVE.L (SP),HandJBMPommeCAS) 
MOVE-L HandleMPtMiime(A5),-(SP) 
CLK -(SF) 
JrtsertMenu 

MOVE.L #'DRVR',.(SP) 
_AddRe£Meitli 
SUBQ.L #Quatre^P 
MOVE #MenuFichier,-(SP) 
_GelRMenu 

MOVE.L (SP),I[aiidl£MFichier(A5> 

CLK -(SP) 

_IilsertMenu 

SUBQl #Quatre.5P 

MOVE #McnuEdition,-(Sr) 

_G«tRMenu 

MOVE-L {SP),HandleMEdition(A5} 
CLR -tSP) 

JnsertMenu 

5UUQ.L «Quatre^F 
MOVE *MenuSource,-(SP) 

MOVE.L <SPJ,nandIeMSourte(A5) 

CLK (SP) 

JnsertMenu 

SUBQ.L #Quatre,SP 

MOVE *MenuSorHe,-(SP) 

_GetRMenu 

MOVE.L (5P).Han(HeMSortie{A5) 
CLR -(SP) 

_liiKrtMcTlu 
©1 MOVE.L HaiidleMEdltlon(A5)J 
-(SPJ 

CLR -(SP) 
_Di5abicIteiii 

DrawMenuBar 
RTS 

Evaiements 

.SyslemTask 



BSR 
BEQ,S 
iSSK 
BRA.S 
SUBQ.L 
MOVE 
PEA 



_GetNextEvcnt 



TesteEntree 

ei 

Ntveau(J 

Evenements 

#2,SP 

#SOFFF,-(SP) 
tnreBHvenb(AS) 



TST 

BEQ,S 

BSK.S 

EEQ.S 

RTS 



(SP)+ 

Evcneinoits 

Traitementevents 

Evenements 



Traitemente vents 

MOVE EnregEvents+f 

evtNuiii<A5)jD0 
ADD DO,DO 

MOVE TableEvencments{DO),DO 
JMP TableEvenemcnlsCDO) 
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Toucho 


#CtnJKt?y,EiiregEvetils+J 
evt.vieta(A5) 


IXJ 




BTST 


DC 


Souris-Tab leE- VG Rem erxts 


BNE.S 


Commande 


DC 


E"v^ p u i van, r 


5RA 


Events uivant 


nr 


TTni ij"rtB_Xiih,IibT-'i7aniOflftOTihc 


Commande 




DC 


EvEEltSLII'VH.Ilt"/ 


CLR-L 


-fSP) 




T fltj I eTZ V die tti c n t S 


MOVE 


En ro gE venis+evtMessa ge+/ 


DC 


Touchc-TableEvenements 




Deu>;{A5>,-(SP) 






Menu Key 




DC 




MOVE 


{SP)+,D1 




TablcEvcncmcnls 


MOVE 




DC 


AlIi vi^-TdbleEveiitiiitnl3 


BRA 


SarMcnuC 


ix; 


Eventeuivant-/ 
TableEvenements 


Misejour 




DC 


EventEuiuanl-J 


BSE 


SPMiseJour 




Tab leE veiiem etils 


BRA 


EvenlsuivanI 


DC 


Evcntsutvant-/ 
TableEvcnemen ts 


SPMiseJour 




EvenlsuiuanI 




MOVEA.I. 


EiiregEventst/ 


MOVEQ #2ero,D0 




*vtMessagelA5),A4 


KIi> 




MOVE.L 


A4,-(SPS 


Souris 




MOVE.L 


(EP)r(SP} 


#Deux,SP 
EnregF.vens+J 


.Bee ill Up date 


SUBQ.L 


SetPort 




MOVE.L 


BSR 


AfficheTitre 




evtMouseiA5),-(SP) 


BSR 




PEA 


EnregEvents+pvtMela+J 


MOVE.L 


A4.-(SP) 




Deux (AS) 


_End Update 


_FindWindow 


RTS 




MOVE 


(SP}+,DO 






Ann 


no,no 


Disquette 




MOVE 


TablcFcnetrc{DO),D0 


BSA 


Events uI vane 


JVtP 


TableFenetre(DO) 






lablet-enetre 








DC 


EvenbBuivant-TablcFenetre 


Anti-it^ 




DC 


BarMcnu-TableFonelre 


MOVEA.L 


EnregEvent3+-/ 


DC 


f e netreSys -TabI ("Ftnetre 




evtMessage(A5),A4 


DC 


Contenu -Tablel-'enetre 


CMPI 


#userKjnd,J 


DC 


DeplaieFen-TableFenetre 




window liind(A4) 


DC 


Contenu-TableFenetre 


B^fE 


Evcntsuivant 


DC 


Evenlsuiviint-Tiil'ltFeuetre 


MOVE 


EnregEvents+I 
evtMeta(A5),D7 






BTST 


#ActivfiFlag,n7 


SUBQ.L 


)fQuatrc,SP 


BEQ.S 


DcActivcr 


MOVE.L 


EnregEvents+J 
evtMoiiseCA5),-{SP) 


MOVE.L 
_S«tPort 


A4,'(SP) 




RSR 


Changed irseu r 


MOVE 


(SP)t,Dl 


DcActivor 




MOVE 


(SFH.DO 


BSR 


Valide Menus 


BarMenuC 




BRA 


Eventsuivant 


ADD 


D1,D1 






MOVE 


TableMenus(Dl),Dl 


fcnetreSys 




]MP 


TableMenus<Dl) 


PEA 


EtiregEvenls(A5) 


TableMenus 




MOVE.L 


EnregEven ts+e V tMe ta+ J 


DC 


E vents u i van (-TablpMpn 1 1.": 




Deux<A5),-£SP) 


DC 


TraitPomme-TabloMcnuE 


_SyslcmCIick 


DC 


TraitFichier-TableMeiius 


BRA 


EvenEsulvanc 


DC 


TraitEdition-TableMenus 






DC 


TraitSource-TablcMcnus 


DiepIaceFen 




DC 


Tra LtSorlie-Tabio Menus 


MOVE 


EnregEventa+I 
evtMeta(A5),D0 


FfnMenu 




ANDI 


#2048+256,00 


CLR 


(SP) 


CMPI 


#3(Mg+256,D0 


_HiliteMenu 


BNE.S 




BKA.b 


Eventsuivant 


sueg.L 


#Quatrc^F 






_FrontWindow 


Tr^itFichier 




MOVE.L 


(5P)+,D3 


ADD 


DO.DO 


MOVE.L 


PointeurFeneire{A5),-<5P) 


MOVE 


lableH£hier(U[)),UO 


LEA 


Kecifenetre,A3 


JMP 


TablcFkhierCDO) 


MOVE.L 


(A3),-(SP) 






CMP.L 


Poi ntpu rFenelre<AS),D3 


DC 


FinMenu-TableFichier 


SEQ 


(SP) 


VC 


TmNouveau-TableFichier 


_MoveWindow 


DC 


Fi nMen u-Ta b 1 eFirti inr 


BRA 


Eventsuivanl 


DC 


TmFermor-TablcFichicr 


ail MOVE.L 


EnregEvents+evlMeta+J 


DC 


FinManu-TableFichier 




Deux(AS)A4 


DC 


TmN um e ro -TableHchier 


MOVE.L 


A4,-(5P) 



@2 



MOVE.L En.regEvenls+J 

i;vtMuij!.e(A5),-CSP) 
I'iiA KectanglelLmite 
.DragWindow 
BRA Evsntsutvant 



Contenu 

SUBQ.L #Quatre5P 

_FronlWtndow 

MOVE.L (SP)i-,DO 

MOVhA.L ttiregfcvents+evLMeta+I 

Deux(AS).A4 
CMP.I A4,nn 
BEQ.S ®1 
MOVE.L A4,-(5F) 

_Se!ectWitid<iw 



BRA.S 

MOVE.L 

_SetFart 

PEA 



m 

A4, 



<£P) 



Etir*gEvent3+J 
EvtMouse(A5) 
ClobalToLocal 



SUBQ.L #Deux^P 
MOVt.L tnregtvents+I 

EvtMouse<AS),-(SP) 
MOVE.L A4,-(SP) 
TEA IlandleContTolefAS) 
_Fmd Contra I 
TST (SP)+ 
BEQ.S m 
SUBQ.L #Deu5i^P 
MOVE,L HandlcControlefA5),-(SP) 
MOVE.L EnregEvents+J 

EvtMouse(A5),-(SP) 
CLR.L -(SP) 
„TracI;Control 
TST £SP)+ 
BEQS m 

SUBQ.L #Quatrc,SP 
MOVE.L HandleConiroIe(A5),-(SP) 
_GelCR.efCon 
BSR Boutons 
©2 BRA Evenbsuivant 



»fiiAPropos,DO 
TraitoAPropoE 
Hand leMP urn me(A5),'(SP) 
DO,-(SF) 

NoinAccessoire(A5) 
i(Dt;u«,SP 

NomAcccssoire(A5> 



TraitJ^omme 
CMPI 
BEQ.S 
MOVE.L 
MOVE 
PEA 

^Cetltem 

SUBQ.L 
FtA 
_OpeTiE>eskAcc 
ADDQ #Deux3P 
BRA FinMenu 

Traits APrnpiw 

CLR.L (SP) 

MOVE SDialogAProp(ffl,-(SP) 

PEA Di3logue(A5) 

MOVR.L t-l,-(5P3 

_CctNewDialeg 

MOVE.L <5F),-CSP) 

_SetPort 
Atffinte 

CLR.L -(SP) 

PEA ArtitlK(A5) 

.Modal Dialog 

_C]oseDLalog 

SUBQ.L #Quatfo,SP 

_rruntWinduw 

MUVE.L (SFJ+A* 



CMPI 

BNE.5 

MOVE.L 

MOVE.L 



#userKindJ 
windowKindCA4) 

ei 

A4,-(SP) 
(SP},-(SP) 



_SelectWin do w 
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_SetFort 
01 BKA 

TraitEdition 
BSR.S 
HKA 

VersSysteme 
MOVE 
(JLK 
MOVE 
SUBQ 
_SysTidil 
MOVE.B 
RTS 

TmN'ouveau 
MOVE.L 
PEA 
PEA 
CLR.L 
PEA 
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h'inMenu 



VersSysteme 
FinMenu 



D0,D7 

DO.-(SP) 
#Un,(SP) 



fS64[X)64,-(SP) 
Prompt 

(SP) 

ReponseGelFilei 
Destiiiation(A5} 
#SFPutnie,-(SP) 

ReponsfGetFilel 
DesHnatiorn- rGoocK A 5) 
FinVIenu 

DrMcnuFi<:hter(A5) 
@1 

Tamponiol 
Destinalion(A5)^0 

InfoFkhier 
raraponlOf 
Destination(A5),A0 
ReponseCctFileDestf 
inalion+rKatne(A5)^l 
Al,ioFileNaine<AO) 
ReponseGetFileDestl 
ination+rVolume(A5)J 
ioVaefNuin(AO) 

m 

#-48.D0 
<S2 

#-35,D0 
@4 

#2,-(SP) 
Erreur 
«5 

#-34,D0 

#3,-(SP} 
Erreur 
@5 

#],-(SP) 
Eireur 

FolmeurFene (ref A5),-<5P) 
litre 

l]e> 

HandlcMFichief(AS)J 
■(5F) 

MOVE #niFermer.-(SP) 
_Disabl€lteni 
5F 
BSE 
BRA 
LEA 

LEA 





MOVE 




Pack.3 




TST 




BEQ 




TST.B 




BEQ.S 




LEA 




_C]ose 




BSR 


m 


LtA 




LEA 




MOVE.L 




MOVE 




Create 




BEQ.S 




CMP! 




BEQ.S 




CMP I 




BME.S 




MOVE 




BSR 




BRA.S 


m 


CMPI 




BNE-S 




MOVE 




B5K 




BRA.S 


©6 


MOVE 




BSR 




MOVE.L 




PEA 




_SetWTi 




MOVE.L 



MOVE,L 
LLK.L 
MOVE.B 
MOVE 



_Open 



DrMenuFichier(A5) 
ChangeCurseur 
FinMenu 
TanipuiiIOj 
Ue£titiation(A5),AU 
ReponseGetFileDestI 
inati!)ii+rNauie(A5)jAl 
Al,iuFileNann![AO> 
ioOwnBuf(AO) 
#fsWrPerm,ioPennssn<AO) 
R«ponEeGstFiI«J 
Dcs linat jo n+rVol u m e/ 
(A5),ioVRefNum(A0) 



MOVh.tS 

ADDQ 
LEA 



BXE.S ®3 

MOVE.L PolnteurFenetre(A5),-(SP) 
PEA ReponsaGetFileDestf 
inatinn+r\'am e< AS) 

_SetWTille 
MOVEQ #0,D0 

KeponseGelFiigDestf 
inalion+r\'ame(AS),nn 
#1,D0 

ReponseGetFileDestI 
ination+r\aine(A5)jA0 
LEA NQmFichier(A5lAl 
_Bfnc'lcMnve 

MOVE ReppnseGelFileJ 

Des t in a MorH- rVolu mej 
(A5},VolurrLe(A5) 

ST nrMpniiFichierCAS) 

BSR ChangeCurseur 

MOVE.L HandlQMFichjer(A5)J 
(SPJ 

MOVE #mFermeT,-{SP} 

_EiwblcIli;m 

BRA PinMe^u 

TmFermer 

SUBQ.L #Quatre,SP 

_FtuntWindow 

MOVEA.L (5P)+,A4 

CMPA.L PointeurFeiietra(A.'5),A4 

BEQ.S m 

MOVE windowKlix(J(A4),-{SP) 
_CloseDeskAcc 



BRA 
BSR 
BRA 



FinMenu 

FcrmcDcstination 
FiitMenu 



OuvertureF 
SUBQ.L 
CLR.L 
PEA 
PEA 

MOVE.B 

MOVE 

CLR.L 

CLR 

MOVEQ 

MOVE.L 

_NewWind 

MOVEA.L 

^SetPorl 

MOVE 

JTextFont 

MOVE 

_TMtSiie 

MOVE.L 



#Qualra^P 

-(SP) 

RectFcnetre 

Titre 

SUn,-{SP} 

#do<:umcntProe,-(SP} 
-fSP) 
-(SP) 
#Un,DO 
DO,-{SPJ 
ow 

tSP3,A4 

#sysFont,-(SP) 

#12,-{SP) 

A4,PoinleurFenetre(AS) 



RTS 




OnvreSprie 




PEA 


TamponlOSorKAS) 


PEA 


Sort 


BSR 


OuvreS 


PFA 


Ta m pTrn rOFnt r^i A.i J 


PEA 


Entre 


B5K 


OuvreS 


RTS 





LLNK 

MOVEA.L 

MOVEA.L 

MOVE.L 

CLR.B 

_Open 
BXE.S 
MOVHA.L 
MOVE 
MOVE 



A6.#0 

12(A6),A4 

A4,A0 

8 { A 6), iofi 1 eX ame CA 0) 
ioPcrmssnCAO) 



®1 

A4,A0 

#8.csCode(A0) 
#94+1024+16384^ 
csPara[n(AO> 

Contioljtnmed 



AO.Al 

A4,A0 

ff9,csCode(A0) 

ALcsParam(AO) 
#SO0,csParam+4(AO) 



BNE.S ®1 

MOVE.L #800,D0 

_NewFtr,dear 

Bi\E.S 91 

MOVE.L 

MOVEA.L 

MOVE 

MOVE.L 

MOVE 
Con tfol,Immed 

BEQ.S m 
m MOVE t2,-tSP) 

BSR Erreur 

_E)tibTDShoIl 
®2 UNLK A& 

MOVE.L {SP),8(SP) 

.ADDO-L t8,SP 

RTS 

AfficheChaine.Numero 

MOVE.L #$0060002£,-(SP) 
_MoveTo 

PEA ChaincNuincro 
_DrawStrIng 

RTS 

AffkhcTitrc 

MOVE.L #S00100044,-C3F) 
_MoveTt> 

PEA ChaineNom 
_DraivString 

MOVE.L »S0020002F,-{SP) 
_Movel o 

PEA ChainePrenom 
_DrawSlring 

MOVE.L t($OO3OO02D,-(SP) 
_MoveTo 

PEA ChaineAdresse 
_DraivStTing 

MOVE.L #$0040004 j,-(SP> 
_MoveTo 

PEA ChaineVille 
_DrawStiing 

MOVE.L #$0050000B,-(SP} 
_MovcTo 

PEA ChaineDBpartetriGnt 

_DrawStfing 

TST.B Di.N^umero(A5) 
BEQ.S ai 

BSR AfficheChaineNumero 
fill RTS 



KectEenetre 
Titre 



DC 
DC.D 



1228SJ 



.Align 

TypeTliXl DC.B 
TypeAPPL DC.B 
CreatQUrWrite DC.B 
Type27 DC.B 
Dialogue DS.B 
NomAcc^oire DS.B 
EnregEvenIs DS.B 
IlandleMPomme DS.L 
HandleMFjchier DS.L 
HandleMEdition DS.L 

HandleMSoures DS.L 
HaiidleMSojlie DS.L 

Article DS 
SauvePort DS.L 

FointcurFsnatra OS.L 
NuiiiFiLliict DS.B 

Volume DS 
TampoiUO DS.B 
TamponlOFithierZ? 

DS.B 

Tampo nIODes d natio n 
DS.B 

ReponseGetFile DS.B 



50,8,154,478 
21,'Pas de J 
fichier ouvert',0 
2 

TEXT 

■APPL' 

■MACA' 

'mllF' 

DWtodLen 

32 

20 

1 

1 

1 

1 

1 

1 

1 

1 

64 

1 

i<>FQElSiBe 

iOl't^ElSize 

ioFQEISiia 
72 
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Rppfl nsRCfltFi 1 eDestina tirni 

DS.B 72 
RepunseGetFileQ uitter 

US.b 71 

Enh-e DCB 4/.Aln'.0 

Sort DC.E S.'.AOut' 

TaiivpjiJOEutre DS.B iuFQElSlze 

lamponlCfciort US.B ioFQElSize 

TamponSorde DS.B 700 

TamponEnhna DS.B TOO 

DufferErreur DS 5 

VolumcCourant DS 1 

Reclarglelimite DC 28,438,508 
RectFffaceMumcro 



RectEffaceViltE 
ReclEffaceN'oml 
RpctFffac&\'om2 
I landlcControlc 
PointeurTampon 
Com pteu rTim in^ 
Numero_Cur5eur 
C Nom 
CPienom 
C Adressf 
CiVille 
C_Departem0rtt 
C Numeio 



DC 

DC 

DC 

DC 

DS.L 

DS.L 

DS.L 

DS 

DS.B 

DS.B 

D&.U 

DS.B 

DS.B 

DS.B 



Copie_Afficfiage OS-B 

DrMenuFichier DS.B 

DrMenuHdltion DS.B 

DrMcnuMode DS.B 

Drl.PTlValide DS.B 

DrMinitel DS.B 

rhCnml nS.B 

DrISsumcro DS.B 

DfDepsrt DS-B 

DtCouteur DS.B 



84,0,100,500 

0,104,100p00 

0,104,52300 

84,104,100,500 

1 

1 

1 

1 

12S 

12a 

128 

64 

iA 

J2 

544 

] 

1 

1 
1 
1 
1 
1 



DrAltenle_Affichage_Ville 



DS.D 
DS.B 



DrRtfperi; 

Ur Atlente_Ville 

DS.B 
DrNume™_en_ooure 

DS.B 

UrLigne DS.B 
DrColonne DS.B 
Dr_Attento_Nom DS.B 
Dr Atte n te_Departein « lit 

Db.B 1 
E)r_ Attente_ Prenom 

DS.B 1 
Dr_Alti;nte_Noiii_SuilK 

D5.B 1 
Dr_Altenle_Adresse 

DS.B 



DrAffkhage DS.B 
UrFinHchier Ub.b 
Dr_Erreur DS.B 

ChaineMom DCB 
CliiiiiePieiiom DCB 
(JhaineAdressc DCB 
ChaineVille DCB 
ChaineDepartsment 

DCB 



ChaineNumero 
Prompt 

NomDefaut 
Tablel 



DCB 
DCB 

DCB 

DCB 
DCB 
DCB 
DCB 
DCB 
DCB 
DCB 
DCB 
DCB 



1 
1 
1 
\ 

5,'Nom ;' 

8, Treiiom :*,0 

9, 'Adresse : 
7.'ViIle :■ 

13,1 

'Dfpartemcnt :' 
S,'.Numcro ;',0 
18,'nnregiatrer \ 
sous .',0 

lD,Sans titr«',0 
S23,'£' 

S26;#' 
S27,'5' 
SZC,'<;' 
SZU,"^- 
S2E/>' 
S2F,V 
S30,'"' 



DCB S31/+* 

DCB S38,V 

DCB S3C,7' 

UC.B 53U,V 

DCB S3E,7' 

DCB S6A,'CE' 

DCB S7A;tE' 

UCB SaA,'lS' 

DCB 'aae^uit' 

DCB 'aaeeiioduu' 
DCB ■aaeeiioOuQ" 
.Align 2 
DCL S07C01930,5210S4104 
r>C.t. S4104S102,S!?1[!2FFFE 
DC.I, S81029102,S110M1£M 
DCL 52-1051 930307COOO0O 
DCL 0,0,0,0,0,0,0,0 
DC 7,7 

DC.L S07C01830,S20481041 
DCL S40a4B0S2JSD02a3S2 
DCL SH-i62821A,S42tM4404 
DCL S24OSl830,S07CO0O00 
DCL 0,0,0,0,0,0,0,0 
DC 7,7 

DCL S07C0]e30,S2Off85Ol4 
DCL S4a248442ia2828l02 

DCL S82828442,$48245014 

DCL 320081 a30,S07COOOOO 

DCL 0,0,0,0,0,0,0,0 

DC 7,7 

DCL S07C01830,S24084404 

DCL S4204S21A,$S162e3e2 

DCL S8D02B082340844044 

DCL S204Sl83O,S07C00000 

DCL 0,0,0,0,0,0,0,0 

ex: 7,7 

dcl $07c01ff0,s3ffs7ffc 

DCL S7FFCFFFE3C006C006 

DCL SC006FFFE,S7FFC7FFC 

DCL S3FFeiFF0,S07C000OO 

DCL S07C01FF0,$3FFS7FFC 

DCL S7hFt;FFKL,5 FFFEFFFE 

DC-L SFFF£FFFE,$7FFC7FFC 

DCL $3FF8lFF0,SO7CO0O0O 

DC 7,7 

DCL S07C01FFU,S3FF87FFC 

DCL S7FFCFFFE.SFFFE8002 

DCL SFFFEFFFE,S7FFC7FFC 

DCL $3FFB1FFO,307COOOOO 

DCL S(J7CtJlFFU,S3t-fS/'FFC 

DCL S7FFCFFFE,SFFFEFFFE 

DCL $FFFEFFFE,S7FFC7FFC 

DCL $JFFBlFF0,SO7COO00O 

DC 7,7 
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Table_Cir 
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Cursewrl 



CurscMrl 



CursetuS 



Cureeur4 



Curseurlbis 



CurseurZbis 



InfoFichier 



LEA 


TatnponlOj 




Ueslmatioii(A5),A0 


LEA 


\'omFichierfA5),Al 


MOVE.L 


Al,ioFilef4'ame(A0) 


MOVE 


Volu[iie(A5),J 




ioVRefNum{AO) 


CI R.H 


if)Fil(>Type(AO) 


CLR 


ioFDirlndexCAO) 


_GelFISeInfo 


BEQ.S 




MOVF. 


#1,-(SP) 


BSR 


Erreur 


RIS 





®1 I.FJt 



MOVE-L 



MOVE.L 



Tamponlol 

De3tiiiatioTi(A5),A0 

#TEXT',J 

ioFiUsrWds+fdType(AO) 
#'MACA',ioF!UBrWds+f 
fdCrealor(AO) 



InfoFichier 

PoiiUeui Fenelre(A5),-{Sr) 
Titre 



SetFilelnfo 
BNE.S ®2 
RTS 

FermeDestination 

SF DrMenuFichierfA5) 
BSR ChangeCurseur 
LEA TiiiiipoiiIOj 

L)e5tinatiori(A5),AU 

.Close 
BSR 

MOVE-L 
PEA 
_SetWTit[e 

MOVE-L Handle>MFichier(A5),J 
-(SP) 

MOVS #mFermer,-<SP) 
..Disableltem 

RTS 



Bouioris 
RTS 

Beep? 

MOVE 

_S¥sBeep 

RTS 

Erreur 
LINK 

BSR 
CLR.L 
MOVE.L 
MOVE 



#7,-(5F) 



A6,#0 
Becp7 
-(SP) 

#'STR -.-tSP) 
8(A6),-(SF) 



GetResouice 
MOVE.L (SP)+,A2 
MOVE.L A2,A0 
_HLock 
MOVE.L 
CLR.L 
CLR.L 
CLR.L 
_ParamTe)tt 
CIR -(SP) 
MOVE #128,-(SP} 
CLR.L -(SP) 
_StopAlerl 
MOVE (SP}+,DO 
MOVE.L A2,A0 
.KUnLock 



(A2),-(SP} 
-(SP) 
-(SP) 
-(SP) 



UNLK 
MOVF.I. 
ADDQ.L 
RTS 



A6 

(SP},Deux(SP) 
#Dcux3P 



TcstpEnlrPP 

LEA TamponIOEntrcCAS),A0 
MOVE S2,ciCodc(A0) 
Status.ljnmed 
TST.L csParam(AO) 
RTS 



ValideMenus 
SUBQ.L 
_FioiitWin 
MOVEA.L 
MOVEQ 
CMP 

BNE.S 
TST.B 
bn:e.s 
MOVE.L 

MOVE 
_DisibleH 

ei MOVE.L 



MOVE 



#4.SP 
dow 
(SP)t,A4 
#0,D5 

StJsorKindJ 
windowK!n(i(A4) 
Fenetre Accessoi re 
DrMenuFkhier(A5) 
eil 

HandleMFiehier<A5>J 
-(SP) 

#niFenner,-(SP) 

HandleMFichicr(A5),J 
-(SP) 

)fmNouveau,-(SP> 
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Enableltem 
MOVE.L Handl*MEdition(A5)J 
-(Sr) 

CLE -C5P) 
_DisableItem 

JDts wMen u Bar 
RTE 

Fen ctreAccessoire 

TSTB DrMenuFichier(A5) 
BNE.S ®1 

MOVE.L Han(JleMFichieT(A5)J 

-(SI') 

MOVE #mFenner,-«P) 
_EnableItein 
SI MOVE.L HaiiJIeMEaition(AS)/ 

CLR -(SP) 

_I>rflwMcnuBar 
RTS 



LireCaractero 
TST.B 

BNli.S 
LEA 



MOVE.L 
LEA 

MOVE.L 

MOVE 

CLR.L 

_RMd 

BEQ.S 

CMP[ 

BEQ.S 

MOVE 

BSR 

ST 

RTS 

LEA 

MOVE.L 
LEA 

MOVE.L 
MOVE 



CLR.L 



DrMinitel(A3) 

m 

TamponlOf 

Fichier27(AS),A0 

«Uii,iuRetjCuunt(AO) 

scrakhiJ,A3 

A3.ioBu/fer(Aa) 

iDFosOrrsel(AO) 

@2 

#-33,D0 
@3 

ffl,-(SP) 
Erreur 

nrFinFirhier(A5) 

TamponlOEn treCA5)^0 

#Un,ioReqCounl(AO) 

scralchS.A.l 

A3,ioBuffcrCA0) 

SfsFromStartJ 

ioPosMode(AO) 

ioPtjsOffseKAO) 



_Read 




®2 MOVE.E 


(A3>,D5 


ANDI 


#S007F,D5 


RTS 






LINK 


A6,#0 


MOVE.L 


fi(A6),A0 


ADDQ.B 


#1,[A0) 


MOVE.B 


<AO),DO 


EXT 


DO 


MOVE.B 


D5.0(AO,DO) 


UNLK 


A6 


MOVE.L 


(SP),4(Gr) 


ADDQ.L 




RTS 





TST.B 

BNE 

MOVE.B 

EXT 

HXT.L 

PEA 

MOVE.L 

BSR 

TST.B 

B\"H 

BSR 

TST.B 

BNE 

TST.B 

BEQ.S 

MOVE.B 

EXT 

EXT.L 

PEA 

MOVE.L 

BSR 

TST.B 

BNE S 

BSR 

TST.B 

BN'E.S 

MOVE.B 

EXT 

EXT.L 

PEA 

MOVK.I 

BSR 

TST.B 

BNE.S 

BSR 

TST.B 

BNE.S 

MOVED 

EXT 

EXT.L 

PEA 

MOVE.L 

BSR 

TST.B 

BNE.S 

BbK 

TST.B 

B\'E.S 

TST.B 

BEQ.S 

MOVE.B 

EXT 

EXT.L 

PEA 

MOVEX 

BSR 

T5T.D 

Bi\'E.5 

BSR 

BSR 

RTS 



Enrpgistin? 

TST.B DrMenuFichier<AS) 

BEQ m 

LEA C_Nom(A5),A0 

IJA Cnpie_Affirhage(A.S),Al 

MOVE.L #511,00 

_BlockMDve 

MOVE.B *'*',ScratchB 

PEA ScratchS 

MOVEQ #1,D0 

MOVE,L DO,-(SF) 

BSK tcrit 

TST.B Dr_EiTeur(A5) 

BNE «2 

DSR Ecrit_CR 



EcriLCR 
MOVE.B 
PEA 
MOVEg 
MOVE.L 
BSR 
RTS 



Ecril 



LINK 
LEA 

MOVE.L 

MOVE.L 

MOVE 

CLR.L 

.Write 



Dr EiTeur(A5) 
Q2 

C_Notii(A5),D0 

DO 

DO 

C_S'om+l{A5) 

DO,-(SP) 

Ecrit 

Dr_Erreur(A5) 
&7. 

Ecrit_CR 

Dr_EiTeur(A5) 

@Z 

C. Prenom<A5) 
m 

C_PretiojnCA5),D0 

DO 

DO 

C_Prenom+l{A5) 

DQ,-(Sr! 

Ecrtt 

Dr Erreur(A5) 
@2 

Ecrit.CR 

Dr_Erreur(A5) 

92 

C_Adi-essa<A5>,D0 

DO 

DO 

C_ Ad resse+ 1 (A5) 

Dt),-(?;P) 

Ecrit 

Dr_Erreur(A5) 
82 

Ecril.CR 

Dr_Errcur(A3) 

92~ 

C_VilIe[A5>,D0 

DO 

DO 

C_Ville+l(Aj) 

DO,-(SP) 

Ecrit 

Dr_ErTeur(A5) 
@2 

hcrit_L'K 
Dr_Erreur(A5) 

m 

DrN'umeroCA5) 

m 

C_Nume(o{A5),D0 

DO 

DO 

C_Numero+l(A5) 

DO.-(SP) 

Ecril 

Dr_En-eur(A5) 
@2 

Ecrit_CR 

Zpfo Chaines Nam 



#13,Scratch& 

ScratchB 

#1,D0 

DO,-(SP) 

Ecrit 



A6,f0 

Tampon iOj 

Destiiiation(A5),A0 

6(A6),ioRetjCou nt(AO) 

12(A6),ioBuffer<A0) 

* fsAtMark,ioPo5Mode(A0) 

inPnsOffspl(AO) 







As1 

wl 




4 Til 












MOVE 


ff2,-(5P> 










ST 






DRA.S 


®3 


@2 


CMPI 


-34,00 




BNE.S 






MOVE 


*3,-(SP) 




BSR 


Errcur 




BRA-S 


95 




M\J V c 


# 1,-{SP) 






Erreur 




BRA.S 




@1 


3F 


Dr_E rreui( A5) 




UNLK 


A6 




MOVE.L 


(SP),8<SP) 




ADDQ.L 


»8,SP 




RTS 





Zero Chdines Nom 



SF 

SF 
SF 
RTS 



f:_\'ciin(A.=)) 
C_Prcnom(A5) 
C_Adrrase(A5) 
C_NumeroCA5} 



Zero Chafnes_Vtlle 

SF C_Ville(A5) 

.SF C DepartemenlCAS) 

RTS 

AffichageVille 

PEA RectEffaceVille 
_ErascRect 

MOVE.L #S0040006D,-(SP) 
_MoveTo 

PEA C^Vtlle(A5) 
^DrawString 

MOVE.L #S00500{)6D,-(SP) 
_Movero 

PEA C_Departement(A5) 
_Dr»wString 

LEA C_Ville(A.^),AO 
LKA t:opie_Affichage+I 

384CA5).A1 
MOVE.L #138,D0 
^BlockMove 
Sf 
SF 

Km 

Affiche Tous 



Copie_Affichagc(A5) 
Copie Affichage+128<A5) 
Copia_Affichage+256(A3) 
Ccipi«_Affi<;Kage+312(A3} 





MOVEQ 


#0,D1 




MOVE.B 


C_Nom(A5),Dl 




EXT 


Dl 




ADD 


D1,D0 




MOVE.B 


C Prenom(A5),Dl 




EXT 


m 




ADD 


Dl.DO 




MOVE.B 


C Adresse(A5),Dl 




EXT 


Dl 




ADD 


Dl.DO 




MOVE.B 


C„SSumero(AS),Dl 




EXT 


Dl 




ADD 


D1,D0 




BNE.S 






SF 


Dr.ErreurfAS) 




BRA.S 


182 




TST.B 


DrAffichage(A5) 




BEQ.& 


&i 




SF 


Dr_Erreur(AS) 




BRA.5 


ei 




ST 


DrAffichage(A5) 




PFA 


Rf>ftF.ffaceNom1 



_EriiSERef 1 
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m 
m 



MOVE.L #S{)010006D,-(SP) 
_MoveTo 

PEA C Nom(A5) 

_TlirawString 

MOVE.L #$0020006D,-CSP) 
_MoveTo 

PEA C_Pre[iora(A5) 
_DcawSlring 

MOVE.L #S0O30OO6D, (SP) 
_MLiveTu 

PEA «J_Adresse(A5) 
_DrawString 

TST B DrNumeio{A5) 

BNE.S ®1 

BSR Enxeglstre 

RTS 

PEA R*clEffaceNom2 
_EtaseRecl 

»S00600CI6D,-(5F) 



MOVE.L 
_MoveTo 
PEA 



C_Nii merof A5) 



_Di'4U'Stiipg 



BSR 
RTS 



Villa Deparlement 



©2 



TST.B 

BNE.S 

RTS 

CMPLB 

BNE.S 

CMPLB 

BEQ.S 

ST 

RTS 



Vitle_Ville 
TST.B 

RTS 
CMPI.B 
BNE.5 
5F 
RTS 



©2 



Dr_Attenle_VilleCA5) 
«1 

»$4ZI>Couleur(AS} 

@2 

#I,DrLigne(AS> 

m 

Dr_Attenle„VilIe(AS) 

Dr.AHenteJ 

Departement(A5) 



DT_AH;*?nte_ViUcCA5) 
SI 

#E-17,DrCoulL>ur(A5J 

m 

C_Ville(A5) 



Dcpdi lemeiilLigiie 
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Ibl.B 

BNE.S 

RTS 

SF 



ST 

RTS 

Noin_Picnom 
TST.B 
BEQ.S 
CMPt.R 
BMLS 
CMF[.B 
BGE.S 
SF 
ST 
SF 
SF 

^1 RTS 



UrAttente J 
Depar[ement(A5) 

ffil 

Dr_AtMnie_J 
Departemenl(A5) 
DrAt Ion le_A(fichage_J 
VLlle<A5) 



D r_A ttente_Nom(A5) 
©1 

* (i,r)rColcinne(A5) 

m 

#31,DrColonn«(A5> 

m 

Dr_AHf?tiie_NQm(A5) 
Dr_A t len le_ Pre nom ( A5> 
DrA/fichage(A5) 
C_PrenomCA5) 



ST 
SF 

RTS 

Adres6e_Fln 
ISl.B 
BNE.S 
RTS 
CMPLB 
BNF-.S 
SF 
RTS 



3)2 
®1 



Suit«(A5) 

Dr_Aitente_Adressc(A3) 
C_Adresse(A5J 



Ur_AttenEe_A(tresse(A5) 
@1 

ffS42,DrCouteur(A5) 
Dr_At teiite_Ad resse( A5 ) 



MiH>}aLirZones 

MOVE.L tS0O40O06D,-(SP) 
_MQveTo 

PEA Copic_Affichage+384(A3) 
_Draw5tring 

MOVt.L #S00500C<6D,-(SP) 
_MoveTD 

PEA Copic_Aff!chagft+4«(A5y 
_DrawString 

MOVE-L #$001tKX)6D,-lSP) 
_MoveTo 

PEA Cop!e_AffichageCAS) 
_DravvString 

MOVE.L #J0O20OO6D,-<SP) 

PEA C(jpie_Affiehag*!+17Ji<A.i> 
_DrawStti ng 

MOVE-L *S003CX)06D,-<5F) 
_MoveIo 

PEA Copie_Affichage+256(A5> 
_DrawSiring 

TST.B DiNumero(A5)' 

BNE,S ai 

RTS 

SI MOVE.L #50060006 D,-(SP) 
_MoveTo 

PEA Copie_Affichage+512(A5) 

_DrawSlring 

RTS 



Source 'T Pom's/3.Asm' 



TraiiSource 




ADD 


DO,DO 


MOVE 


TflbIeSource(DO),DO 


JMT 


Tab)e5ource(D0) 


TableSource 




DC 


FinMenu-TableSource 


DC 


TmPpl?ls2?-TableSource 


DC 


TmMinitel-TableSource 


TraitSortie 




ADD 


DO, DO 


MOVE 


TableSome(DO),DO 


JMP 


Tal)l«Sorti*{DO) 


TableSortie 
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(B790010 08000010 08000010 {)9FC0010 
08000010 033DE010 06000010 097CF8iO 
06000010 083F9F10 UHOUUtJUJ U98F8F10 
OROOOOlO 087EEF90 08000010 09F3E590 
08000010 08000010 08000010 OFFFFFFO 

* Source Minitel 
,261 <4) 

7FFFFFFE 80000001 AOOOOOOS 9FFFFFF5 
98186199 9FFFFFF9 90000009 9FFFFFF9 
904C0C29 9FFFFFf9 96318C09 9FFFFFF9 
90411849 9FFFFFF9 90000009 91-TFFFF9 
98C3t919 9FFFFFF9 AOOOOOOS BFFFFFFD 
6000000^ 25335304 20000004 2AAAAAA4 
20000004 Zj=6S504 20000004 2AFFEA74 
2000C004 3FFFFFFC 20018004 3FFFFFFC 

* Finder 
,264 (4) 

OFFFFFFO 10000008 13FFFFCfi 17FFFFE8 
1668F468 16D5EAEa 1645E2E8 I6D5EAE8 
1655EAE8 17FFFFE8 1799SA68 179494E8 
17549CE8 17948E68 17949E68 16949E68 
1739e8Ee 17FF1TES 131"rrFC8 10000(X)8 
10000008 10000008 100001C8 1200FFC8 
10000008 10000008 10000008 OFFFFFFO 
08000010 OA 000030 08000010 07FFFFE0 

* Applicauon 
,265(4) 

OOOlOOOO 00028000 00044000 00082(100 
00129000 00254800 0O48A40O 00904200 
01282100 02144080 CMOA6040 09450020 
12A28010245140084828BFD4 B4144082 
4A2A8041 25453022 1283C814 095E7F0F 
(MA23{M)7 02510007 01288007 00906007 
00401FE7 0(I20021F 00100407 OOOSOBOO 
00041000 00022000 D00140DO OOOOSOOO 

* Pom 'a 
,266 (4) 

OOOOOOflO 00000050 00000080 OOOO 11 00 

000008AA 00000155 OOOOOOAA 00001401 
00002AQ2 00004514 OO0OA280 00015140 
000228A0 00051440 00028AOO 00014560 
0028A2AO 005451«1 008A2980 004S3D7C 

00A2FFD6 1451 FEAB 2A28FD4S 4515FAA3 
A20AFD45 5100FAA3 2A007D46 14007AAA 
0A003D54 050U1 AA« 02800DDQ D 1000660 
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Pom's n° 30 



Cfiristian Tiard 



MiniteCj Sip^k // ttttU 



Ce programme a pour objet la 
recuperation des informations 
accessibles sur le Minitel par le 
II, c'est-a-dirc les noms, 
numeros de telephone et adresse 
des abunnes figuraiii a I'iinnuairf; 
electronique, 

Le programme constitiie sur 
disque un fichier comprenant 
I'ensemble dcs abonncs affichcs 
par le service, fichier imprimable, 
r^Lupi^rable par uii LraiieiiieiU de 
lextes ou par votie propre 
programme de mailings par 
exemple. 

Le programme ne fonctionne que 
sous ProDOS. 

Configuration 

Pour iitiliser ce programme, vous 
devez disposer des elements 
suivants : 

Vous avez un Apple j( + : 

» une ROM pour I'affichage des 
minuscules ; 

• un Minitel, 

• vine carte 'Ian gage' qui accueil- 
lera FroDOS ; 

• une carte SuperS^rie Apple ; 

» un cable de liaison type Apple 
//e. 

Vous avez un Apple tie iquipi on 
non du 65C02 : 

• un Minitel ; 

• une carte SuperSerie Apple ; 

• un cable de liaison type Apple 
//e. 

Vous avez un Apple lie : 

• un Minitel ; 

• une carte SuperSerie Apple ; 

• un cable de liaison type Apple 
//c- 

Vous avez un Apple Has : 

• un Minitel, 

• un cable de liaiMon type Mac- 
intosh Plus (on utilise le port 
serie int^gre). Si vous desirez 
uiillser une carte SuperSerie 



installee dans I'un des slots, il 
faut un cable type Apple //e. 

Tous les types de Minitel 
conviennent. Le cable pent etre 
realise d'apres les schemas des 
numero 27 ct 28 de Pom's ou 
commande a la revue (bon de 
conunande page 74). 
Le programme se charge de 
rechercfier la carte SSC pour le 
port serie en commen9ant par le 
port 7 pour finir par le 1. Une 
carte en port 2 sera done utiliscc 
meme s'il en existe une egalement 
en port 1 (cas du //c et du Uus). 

Mode d'emploi 

Le programme cree sur disque un 
fichier de type TEXT comprenant 
les abonnes consultes a I'aide du 
Minitel. Les differenis options du 
menu sont les suivantes : 

Recevoir I'annuaire 
avec numeros de 
telephone 

Option R : Le programme vous 
dcmandc Ic nom du fichier TEXT 
a creer avant de se mettre a 
I'ecoule du Minitel. 

Le nom de fichier doit respecter la 
syntaxe ProDOS (la routine de 
saisie elimine la plupart des fames 
possibles). II peut etre de la 
forme : 

ou 

CHEMINEES 

Dans ce dernier cas, le prefixe par 
dcfaut est utilise pour determiner 
le volume d'accueil du fichier. 

Si le fichier existe deja sur le 
volume, Ic programme refusera 
de I'ecraser, ceci pour eviter les 
consequence d'une fausse 
manoeuvre, 

Dans le cas ou vous dcsircz 
reellement remplacer un fichier 
exislaiil appuyer sur : 



- 3g(nGS)ou 

- Option (Tics) ou 

- *(//e,//c)ou 

- C((//e,//c)ou 

- un bouton du joystick {][ i ) 

lorsque vous faiLes le return (^t 
validation du nom de fichier, 
L'^veniuel ancien fichier sera 
ecrase. 

Le programme affiche alors 

flakier TEXT cree. II ne TeSte 
plus qu'a commcnccr la 
consultation sur Minitel. La 
memoire dispqnible pour les 
adresses est d'environ 26000 
oc:ers, ce qui suffit pour 3 a 400 
adresses. Le compteur affiche ^ 
I'ecran vous indique en 
permanence la place disponiblc, 

A tout moment, pour liberer de la 
place en menioire, il est possible 
de presser s ce qui provoque 
Tecriture sur le volume ; la taille 
du fichier n'est done limite que 
par la place disponible sur le 
disque. En fin de consultation, 
presser esc ce qui sauvegarde la 
memoire et reconduit au menu 
general. 

Au fur et a mesure de I'enregis- 
trement, les noms, adresses et 
numeros de telephone appa- 
raissent a I'ecran. 

Recevoir I'annuaire 
sans numeros de 
telephone 

Option L : Toutes les indications 
dc I'option prcccdcnte rcstcnt 
valables. Seule difference : les 
numeros dc telephone ne fejoiii 
pas partie du fichier : c'est done 
la solution ^ retenir dans la 
perspective d'un mailing. 

Imprimer un fichier 

option 1 : Conine comme 
accessoiie, cede option perniel 
d' imprimer un fichier TEXT sans 
devoir necessairement charger 
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Deux pages de I'annuaire Ulustrant la 'variete' de la presentation 



AppleWorks, AppieWriter ou 

autre. 

Un fichier d'adresses vient d'etre 
CTi6 : ceite option permei 
d'obtenir rapidement sa represen- 
tation papier, sans souci de 
presentation. 

Le programme, qui suppose 
I'imprimante connectee an port 1, 
inierrouipia rinipression si vous 
pressez esc. 

L'imprcssion dc fichier d'un type 
autre que TF.XT sera refuses ; 
toutefois, les fichiers de testes 
AppleWorks sont admis. 

Modifier le prefixe 

Option M : C'est Toption & 
choisir pour changer le prefixe 
par defaut, prefixe qui est rappele 
en haut de Tecran. Par cxemple : 

/UNIDISK2/POMS30 /T3 

Volumes en ligne 

Option V : Option indispensable 
pour identifier les disquettes, 
disques vuTuels et autres volumes 
aciuellement disponibles. 

Catalogue 

Option C : Permet le listage des 
fichiers du catalogiae vise par le 
prefixe par ddfauL Si celui-ci est : 

/PRQFILE/CL TENT 

seuls les fichiers du dossier 
CLIENT appaialtront. 

Quitter 

Option Q : Contrairement a ctrl- 
RKiiET, cette option permet de 
quitter le programme, 

Le filtrage 

La recuperation des elements 
purement I HX T de I'annuaire 
clcctronique presente bien des 
difficultes du fait du caractere non 
standard de la presenta.tion. II 
faudra oeuvrer en traitement de 
lextes avant d'envisager 
l'imprcssion d'dtiqucttcs-adrcssc 
(ne ser3it-ce que pour ajouter les 
code postaux mdisponibles dans 
la consultation). 

Pour I'identification dc ce qui doit 
I . 



FMflC 

PBBIS PAR IS 1 

> I FK fi.C. (Federation 
Notionflle iJ' Achats des 
Cadres ) 

FM.fl.C nutsradio 
<Federfltnjn 
Mat icna I e <J 'Achat 
des CDdres ) 

2 -5<t ov Bosquet 7e (IJ 45 51 Z» 15 

3 -|3Ter bd OouuiOn ( 1 ) 45 74 57 ^ I 

SI cyr i7e 

^ -33 r n i cnora t I ] 43 «7 33 03 

Lena ir He 



^sipsz le H* shoisi : , , , puis f ETIVOI 
p-a^a suiv4nte > £\!IT£ 



etre un nom, une adresse ou un 
telephone, le programme se ha.se 
sur la couleur et la position des 
elements mais le filtrage et la 
rcconnaissiincc des divers 
elements n'est pas efficace k 
100%. Les mentions du type 

futuz /iumexo ou telephone 

de voiture en Ueu et place de 
I'adresse sont difficilement 
decelables. Le programme ne 
donnera pas un resultat 
satisfaisant lorsque plusieurs 
numeros sont affectes a un 
abound. Selon la presentation - 
{res variable - la recuperation se 
fera plus ou moins bien. 
Les copies d'ecran Minitcl 
annexees illustrent ces variations. 

Pour une page affichee sur 
Fcuran du Minitel, 600 a 1000 
caracteres (texte, controle et 
graphistne) sont emis sur la prise 
pdri-inforraatique. Apres filtrage 
des caracteres iniitiles pour nous, 
il peut ne rester que 4 ou 5 
adresses de 70 caracteres soit 600 
ou 700 caracteres dliminSs. 

Precautions, 

Remarques, 

Mailing 

Le programme, pour constituer 
des adresses coherentes, attend 
un effaccmcnt dc page toujours 
suivi de I'affichage de la ville en 
haut de I'ecran. 

II faut done mettre le programme 



f11NISTEft£ 

PFRiS PflfllS I 



> 1 Miristere flgr i eu I ttjra 



2 


Hin 
231 


stere Defense 
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13 
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- 13 
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ot 


SO 
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-nene adresse 


C 1 ) 


42 


01 


33 





topez le ri' thsrisi;... puis > EMVO I 
pa^e suivarte * $U|TE 



a I'ecoute du Minitel avant mcmc 
de commenger la consulation 
pour que I'Apple voit bien passer 
la ville. Sinon, rien ne sera 
enregistr6. 

Dans ie fichier TEXT, les 
adresses sont s^par^es par *** 
pour que votre programme ou 
votre traitement de texte identifie 
facilement le debut et la fin. 
Pour rdaliser un mailing a I'aide 
d'AppleWriter par exemple, 
remplacer les * * * par des sauts 
de page par la commande : 

CTRL-B 

CTRL-F /***/. FF/AJ 

Specifier un espace entre pages 
de 10 hgnes si vos Etiquettes sont 
distantes de 10 lignes : 

CTIU^-P IPIOJ 

La liaison Minitel/Apple peut ^^^^ 
v^rififc de la fa^on suivante : 
programme pret a enregistrer, 
presser des touches sur le clavier 
du Minitel. A chaque caractere 
regu par I'Apple, le premier 
de la lignc 8 doit se transformer 
en un '+' puis en un etc. 



Source T.P0MS.1 
Assembhur ProCODE 

POT T. POMS. 2 

POT T. POMS. 3 

PUT T.PWS.A 
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Representation d'une pagede I'annuaire electronique 
{633 csractkres) 



ProDOS 



2600:14 


oc 


00 


00 


IE 


IF 


41 


45 


IB 


47 


4D 


49 


4E 


49 
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Recuperation 
par T__Pom's 
sansn'^de 
t^ldpbone 

(206 cmciBies) 



Seufs les csmcWes TEXT 
utilisablss sont gardes ; les 
caracteres accentues sont 
recodQS avant £tod<age. 




Mi ni .stdrG de la 
Justice 

13 pi vendome 

PARIS 



le 



Ministdre la Mer 

3 pi Fontenoy 7e 

PARIS 
*** 

Minist^jre de J a 
Sant^ 

1 pi Fontenoy 7e 
PARIS 

Relations Exterieures 
37 qual Orsay 7e 
PARIS 



Source T.POMS.2 


SETEOF 
KBD 




$D0 
SCOOO 


DEVO 
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DEVOO 


Assembieur ProCODE 
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II 

LJCNf 

$22 

LIGN€ 

to 

COUT 

n 

LJTPREF 
i3 

f22 

WDBIM 
14 

VTABl 
18 

POMS. Y 
S49F. Y 



ADRCHOIX DA 
DA 



KKCANN 
RECANNST 



LDA (4 

JSR V7AB1 

LDY to 

LDA MESMENU, Y 

BEQ 12 

JSR COUT 



12 



13 



J5 



]6 



my 
am 

LOA 



JSR 
LUA 
ADC 
STA 
BCC 
INC 



ti 



STA LONG 
LDA tlS 



GBASCALC 
tJ5 
GBASL 
GBASL 

aSASLrl 



JSR INPUT 

LDY t6 

LDA BUFFIH 

CMP MESCHOIX, Y 

DEY 

BPL )4 

JSR BXP 

BCS 12 



LDA 
STA 
TYA 

inc caoixiNDti 

INC CHV1X1ND1-1 
DEY 
flWE 



KAORCHOIX 
CHOIXIND*! 



16 



CHOIXIND JMP lAnRCHaiX) 



Ji 



JSR GBASCALC 
LDY t39 
f"_ •' 

(GBASL) , y 



LDA 
STA 

DF.y 

BPL 
RTS 



}1 



• RECEVOia AHHUAIRE 



RECANNST LDA iO 

STA TELEPH 
BEQ RECANKl 

HECAttN LDA H 

STA TELEPH 

RECANNi JSR HOME 

JSR LITPREF 

LUA LtiaPATHN 
STA PATHNAME 
t4 

VTASl 



LDA 
JSR 

JSR CFZ 

BCC }1 

JSR GETRET 

JMP MENU 



LDA 
STA 



ca 

LDA AOXTYPG 
SEC 

j^RC RT.ncuns 

■TAX 

LDA AVXTYPSi-l 

SBC BLOCKUS-H 

JSR imPTR 

mc cH 

LDX to 

LDA BL.X 

BEQ }3 

JSR COUT 
INX 

BNE }Z 



; reception sans n° telephone 



; reception svetr o° 



; crherche place dlspanlble s'jr 



1 'attlche 



13 

]20 

13000 

J 300 
J 301 



LDA ne 

STA mOTOP 



131 



}31A 



J 310 



}311 



LDY 
LDA 
STA 
DEY 
BPL 

JSR 
BCC 
JMP 

JSR 

Hrs 

LDA 
STA 
JSR 
BCC 
JSR 
JSR 
JMP 
JSR 
BCC 
JSR 
JMP 
JSR 
JSR 
JStt 



#.5 9 
BAS, y 
S7D0, y 

130 

SAISINl 

1300 

MENU 

CREFIC 

REMMW? 

LNCPATHN 

PATHNAME 

OUVREFIC 

131 

ERREfJR 

CETRET 

MENU 

VIDt^f 

}31A 

GFTRET 

HOME 

IN ICOMPT 

trait: 



LDA' fl3 
JSR VTABl 



LDY 
WA 
BEB 
JSR 

BNE 



iO 

pRtrr, Y 

1311 

COUT 

)310 



afflche mesiafre en bas 
da 1 'icran 



; sslsle du nom de fichler 



creation dti fichler 



; j-anet Je flctiler a 
f $'il existait 



; afflche la^olre dlsponlbl- 



sfflche 'pr^t a recevolr' 



U>A ilO 



56 



Pom's n° 



JaK vise J 



STA f 

JMP BQUCLE 



BOUCS.E 



110 

1111 
;3 

RIF 

J? 
}3 
J30 



J300 



J4 

15 



}60 
17 



JSR 


INICOMPT 






LDA 






viJle prsaitm^e en ^eme ligns 


STA 


aviLLE 






LDA 


t?FF 


! 


aucun caract^^e refu 


STR 


DP 






JSR 


HJC 


I 


bauele prlnelpalti t art t^ste 


CHF 


t$lF 


f 




set? 


RIF 




I'attlctisge Mlrtltel et on 






: 


pas it ionfif? 


CMP 


t$13 


: 


des drapeaux en consStiuence 


HHC 


110 


'■ 


pour Afflf^h&r et sti^cter ou 


JMP 


r:b 




n<sii les carat:: t^ui suLvctsnL 


OiP 








3NE 


m 






JMP 


Rio 






CMP 


IS18 






BNE 


1111 






JMP 


HIS 






CMP 


f?C 






BNE 


12 






JMP 


sc 






CMP 


l?SO 






BNE 


13 






JMP 


SiQ 






CMP 


IS16 






mif. 


11 






JMP 


HIS 






LDX 


VR 




si an n 'a pas regu Is vllle 


3EQ 


BoaciE 




on n'attlelte ilea. 


JMP 


RAUTEE 




affiche eveatusllement 


IM 


N 






3EU, 


12 




si nooi en courji, flu du iiom 


JSR 


FIUNOM 






LDA 


A 






BED 


13 


; 


si adress en cours, fin adress 


JSR 








LDA 


P 




si pr^nom en ct^urSg fin prsnoia 


BEQ 


J30 






JSR 


FINPRE 






JSR 


RIC 




recevolT 2 caracterss de itlus 


stu 


Fl 




Fl et F2, qui sulvsnt 


JSR 


RIC 






STA 








lOR 


ri 




si PI = 42 fou 43...) et F2 = 45 


CMP 


UVILLE 




on recevair la vllle. 


DCS 


]300 




< 42, on boude 


JMF 


BOUCLE 






BNE 


15 






LDA 


F2 






CMP 


iS4 5 






Dun 


H 






LDA 


fl 






sm 


V 


• 


e'est la viLle 


LDA 


to 






STA 


pp 






jsn 


HJC 




6vite la premier SIB 


JSR 


RlC 


i 




JMP 


RVIhLE 






JMP 


BOUCLE 






IDf, 


F2 


t 


3 <> ^^2f n '^St p5£ vill 


CMF 




i 


FZ = 4 5 ? 


BEQ 




• 


oul, on recavra nom ou adresse 


BCS 


}7 




> a 45, on recevra le prinom 


JMP 




f 




LDA 


Fl 


r 


nom et adresse ne psuvenc Sere 


CMP 


tS44 


• 


svant llgne $45 


sec 


]60 






USh 


fl 


• 


on j-flcov^ra nom adresi^ 


STA 


NA 






LDA 


#0 






STA 


PP 






JMP 


BOUCLE 






LDA 


tl 




an recevra prenom 



RlB 



}?2 



1220 
13 



1* 

mo 



n 



n 

R60 

RC 



n 



LDA 
BNB 
JSR 
JMP 
JSR 
CMP 
BNB 
LDA 
BEQ 
LDA 
STA 
LDA 
STh 
STA 
JMP 
CMP 
SHE 
LDA 
STA 
LDA 
STA 
STA 
JMP 



IXA 
STA 
LDA 
STA 
CMP 
BWE 
LDA 
STA 
STA 



LDA 
STA 
STA 
STA 



STA 
BMI 



OiP 



am 



J3R 
TAX 
AND 
CMP 



CP 1* 
BNE 



m 

}21 

RIC 

BOUCLE 

RiC 

iS4? 

13 

AT 

]2Z0 

fl 

A 

to 

BOUCLE 

fS4 7 

J-J 

tl 

N 

*0 

PF 

NA 

BOUCLE 



Jati Kl c; 
CMP i2 



Jl 
tl 

T 

to 

PP 

f3 

1^ 
10 
T 

PP 



JMP BOUCLE 



to 

V 
N 
A 



STA m 

STA T 

STA P 

STA AP 



PP 
DP 
]1 

JSR AFVILLE 
JSR TRAIT 
JMP BOUCLE 



PIC 
t$lZ 

11 

JMP RIS 
JMP BOUCLE 



to 

VK 



JMP ms 



f^FO 
tS40 
R162 



TXA 

LDY IV 

CMP ACTl, y 

Rr.Q }3 

jnr 



12 



«34 
11 

JMP BOtKLE 
TUT 



on h^slt^lt ^pntre rom/sdr^ss ? 



non, on boucle 

ouX, on rscoJt un autre csracc 

r'isst if, on rfc^vrs peut—Str^ 
ddrsfse possible ? 



c'est 47, on rec&vra un nom 



: regu 10, on attend 'j.i carac:: 
1 c'esc 2, alors dSb'jt du t41eph 



c'est 3, alcrs fir. du c^J^eh 



autre, on bouei* 

refir SIS oit S£G S12 

fill d'un groupe ou d'une pags 

reinitialise les drapeaux 



J regu $6G, Attend 1 carpet 

i *i c *est 12, fin du groups 

; nom t adresse i til + ccmment 

i slnon on boucle 

; vllle non regue 



,• refu $1€. alphabet Q2 

; SI carac = o'est njie 

minMscule accentuee oil p 



ce n est pas un accent 
ckerche dans ia table 



Pom's n° 30 





WA 


Acri . y 


■ 


charge carac carr^spandant 


UlA. 


tS42 




JMP 






avAnt tjr^lt^iT.&nt ncrmal 


STA 
IDA 


SVTLIE 
tl 




STX 


Cl 




on dCCentf le deuxleiT:e 


STA 


VR 




JSR 


RIC 






JMP 


BOUCLE 




STA 


C2 






STA 


HVJLLE f 




LDY 


fC 






JMP 


Rir 


Jl 




cl 














ACTZ, r 


; 


compare le premier COUTI 


ORA 


tS80 




BNE 


12 






JSR 


STOCK 




nry 








JMP 


COVT 






C2 












CMP 


ACT2, Y 


/ 


canspare Is deuHlime AFVILLE 


Wfi 


VILLS 




BNE 


13 






BNE 


}2 




mr 








RTS 






LDA 


ACT!, r 






LDY 


il 




,7MP 








LDA 


VILLE, y 


}2 










JSR 


COOTl 


73 


mr 
mr 








mr 


VILLE 




cpr 


i42 






BNE 


n 




am 


]1 






JHP 


CROUT 




JMP 


BOUCLt 




RIC 


JSK 


RECaiT 


RAUTflE 


CMP 








BCS 


}1 




BCC 


,!i 






LDA 


KBD 




STA 


CRECU 






BIT 


STROBE 




LDA 


TfTf-RPW 






AWD 






Jll3£! 


r 


/ 


opiisttons loglques sar 


CMP 


t-S" 




STA 


T 


J 


lei- diapeaux pour decider 


BEQ 


SVM 




LDA 


P 


; 


si on aitlchera ou non 


CMP 


i$9B 




AND 


PP 


t 




BNE 


RIC 




ORA 


ff 






JSR 


SAUVEHBM 




ORA 


A 






LDX 


t^FF 




ORA 








TXS 






ORA 








JMP 


MENU 




BEQ 


]1 




U 


RTS 






LDA 


CRECU 






JSR 


SAUVOiEU 




STA 


CRECUl 






LDX 






AND 








TXS 






STA 


DP 






JMP 


OR 




JSK 












n 


JMF 


BOUCLE 




TRAIT 


BIT 
BUI 


DP 

TRAIT2 


FINNOM 


BIT 


DP 






JSR 


CROUT 




mz 


H 






JSR 


SfC42 




JSH 








LDA 


tS8D 




IDA 


to 






JSR 


STOCK 




STA 


N 






LDY 


*3 




r.nA 


tl 




11 


LDA 






ETA 


PP 


/ 


pr4nofT] po33±ble 




srocn 




STA 


AP 


/ 


gdresse possible 


DEr 






RTS 








BNE 
M>A 


11 

tS8D 


rrnADR 


BIT 


DP 






JSR 


STOCK 




BMI 








LDY 


t$FF 




JSH 






■ 


STX 


DP 


U 


LDA 


to 












STA 


A 




TRAITl 


LDA 


I& 




RTS 








JSR 
LDA 


VTABl 

to 




BIT 


DP 




si on n *a pas r^i^u de caratrc 


STA 


CH 




Bftl 


11 


t 


11 n'y a pas tie pr^noif. 








JSR 


CROUT 






Lor 




11 


LDA 


to 




}10D 


LDA 


§ n— » 




STA 


P 






JSR 


COUT 




RTS 








DLI 
BPL 


1100 


RVILLE 


IDA 


tQ 


r 


stocks ville 


LDA 


I"/" 




STA 


VILLE 






JSR 


COUT 


]i 


JSR 


RIC 






LDA 


*" " 




CMP 


t$lP 






JSR 


COUT 




BEQ 


J6 


I 


ce n'6taic pss la ville 


SEC 






CMP 


fSlB 






LDA 


tSFF 




BEQ 


15 






SEC 






THC 


VTLLf: 






TAX 






LDY 


VILLE 






LDA 


tS95 




STA 


VILLE. r 






SBC 


COMPT+i 




CPY 


tJO 






JSR 


L INPTR 




BNE 








LOA 


jf» If 


J5 


LDA 
STA 


to 

V 






JSR 


COUT 



; ville regve 

ville en llgne J *t non 2 
^rar rubrlquc occup^ic 2 
llgnes 

'poldsforiss ' le csractere 
sCockatfe et afflchage 



; afficfie et stoclce ia ville 



retenue - ; pss refu 
UJie toucAe presi^« 7 

convertlt en fnaju-scuJe 

si Sf on 3auvegardB 

et on continue a enreglstrer 

si ESC, on sauveijarde et 

on tiermine 



- s^t-on rsgu des caracteres ? 



; efface fm ^cran 



afflche w^alre dlsponlble 



Pom's n° 30 



}101 



JSR 



TPIAIT3 
STOCK 



}1 



}FIN 



]1 



SHE 

IDA 
JMP 
J»P 



LOR 
CMP 
BHE 
IDA 
CMP 
BZO 
INC 
BME 
INC 

WA 



CffP 
BNE 

RTS 
LDA 
STA 
JSH 
JSR 
JMP 



SAUVEMEM LDA 

SEC 
LDA 
SBC 
STA 
LUA 
STA 
JSR 

see 

JSK 
JSR 
RTS 



n 



miCOMPT LDA 
STA 
LDA 
STA 



fV" 

COUT 



jspi cauT 

LDA CH 



CHOUT 
flO 

VTARl 

cftoar 
CARAC 



COMPT 

/5FF 

!1 

t$95 

}FIN 

C0MP7 

12 

CQMPTil 
CARAC 

to 

fcowPT; , r 



PRET ASC " lichiar mxT eree " 

ASC " fret pour consultation d« i 'annualre " 
DFB 



• IMFRIMZR UN FJCW-If« 



et flltr4s 



IMPaiME J£« HOMZ 



13 



UTS 



CKECVl 

t$SD 
CRECUl 

sracK 

CLUEOL 
SDAF3 

IS SO 

LAS+1 

LAS 
EF 

3t 

ERREUR 



to 

COMPT 

tS3C 

COMPT+1 



f stocks un z&touz chstlot 



; efface fin de la liqne 
• crouC 



}3B 



}3ei 



Ji 



IS 



VILLE 


DS 


40 




DS 


1 




DS 


1 


Y 


DS 


1 


P 


DS 


J 


m 


DS 


1 


AP 


DS 


1 


A 


DS 


1 


T 


DS 


1 


S 


DS 


1 


CRECD 


DS 


1 


CRECin 


DS 


1 


DP 


DS 


1 


aVILLE 


DS 


1 


VR 


DS 


1 


TELEPH 


DS 


1 


RY 


ns 


1 


CARAC 


DS 


1 


CI 


DS 


1 


C2 


DS 


J 


BL 


ASC 


"bl 




DFB 






JSR 
BCC 
JMP 
LDA 
STA 
JSR 
BCC 
JSR 
JSR 
JMf 



SAISW2 
12 

MEUU 

iS'GPATm 

FATHNAMS: 

oaVFEFIC 

13 

ERTIEUR 

GETRET 



BM 120 



LDA 
CMP 
BEQ 
CMP 
BEQ 
LDA 



LDA 
STA 



CMP 
BEQ 



srr 

JSR 
DEC 
BPL 
LDA 
JSR 
LDY 



SUE 

FmmPBT LDA 
JSR 
JSK 



FILETYG 

!3B 
ifslA 
]JE 

rsic 

12Q 



LDA tl 
STA LAS 



to 

LAS+1 



.KB r.TTFTd 

BCC J 4 

JSR ERREVR 

JSR SETRF.T 

JMP !t£flV 

ORA 
CMP 



SjOOO 

tseo 

iSBD 



am ]s 



f7» 
NBCR 
SCISO 
NBCR 

le 

tseu 

scioo 

179 



STX NBCR 
lOfl KBP 
BIT SmOBE 
CMP t$9B 
130 
tSSD 
$0100 



JMP MENU 



; ssisle du nam de flakier 



cuverture du flchler 



get file Infa pour type do 



; fickier TEXT ? 

; r.on, erreur 

* ! (= H rp? 

,- fJn da i"Ji:!iiej ? 



; esL-ce un CR 



; on n 'iniprimejra pas plus de 

80 caracteres par ligne . 
; /utile si ce n'est pas un 
; flchler d'Rdr&sse qui Bst 
f imprlmej 



Source T.P0MS.3 

Assembfeur ProCODE 



* QOITTER 



QUJTTER JSR TEXT 



JSR HOME 
JMP BASIC 



* SATSIE MOM PTCHIER 



LDY f>mMFICH 



Pom's n° 30 



LOA t<NaMFIQH 
BNE SAISIN3 



CMP 

BCC IliERR 



SATSIN2 



JSR 

Lav 

IDA 



SAISP 

t^NaMricHl 







STROOT 




LDA 






STA 


LONG 




LDA 


iS 




JSR 


GBASCALC 




JSR 


IffPOT 




BCC 


jl 




RTS 






LDY 


TF3 




BNE 






JSR 


BIP 






<;a t<;tni 






P/iTHNAME 




STY 


LNGF/iTm 




LOA 


Burrmr r 




INY 






ST A 


PATHNAME. 




cry 












SFL 


13 




CLC 






BTS 




SAJSP 


im 


t? 




STA 


cv 




JSR 


VTA3 




LDA 


iO 




STA 


CH 




BKT 




NONFICU 


ASC 




"Nont 


du fichicz TEX 




nrn 





NOMFICHl 


ASC 






du fichier TEXT 




DFB 





* INPUT 






INPUT 


LDX 


ID 




STX 


pose 




LDY 


LONG 




LDA 


t". " 




DEY 






REQ 


TNCLAV 




s-m 


(CBASL) , y 




BNE 




IHCLJiV 


LDA 






STA 


/GBASL) . r 


laChAVl 


LDA 


(GBfLSL) , r 




eojf 


n 




STA 


(GBASL) , Y 




LDX 


IS39 


111 


DEX 






BNE 


111 




LDA 


KBD 




BPL 


INCLAVl 




BIT 


STROBE 




CMP 






BEQ 


INESC 




CMP 


l$SB 




nro 






CMP 


f$rF 




BEQ 


INRETOUR 




CMP 


t?8D 




BEQ 


INVALID 




CPY 


LOKG 




sec 


ltt£RR 



i"/" 

i "A •' 
BCC CJflfTKE 
AND ftiJOJJJJX 
i$DB 
JNERR 



CMP 
BPQ 
CMP 



CMP 
BCS 



BCC INLETTRE 



CPY 
BEO 
BNE 



to 

INLETTRE 
CHIFFREl 



CA'lFfflE" CMP 

BCS 

CPY 

BEO TNERR 
CaiFFREl TAX 

DEY 

LDA 

INY 

CMP 

BEC 

TXA 

OMI 



mERR 



iCBASLI , r 



#"/'■ 

INERR 



INhETTRE 

imRB JSR BIP 

BCS INCLAVl 



LONG 

iGBASLt,Y 

;i 

I'C 

BUFFTfl 



LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
SEC 
RTS 



imETVUR LDA POSC 
BEQ INERR 
CMF LQNU 
BNE 
LDA 
BNE 

im: LDA 
1NK2 STA 
DEY 

DEC POSC 
JMP 



imi 
i" " 

INR2 
»"." 

((SBASh) , y 



INCLAV 



INC 

mY 

JMP 



POSC 



IHVALID STY TPS 



}0 



ii 



/3 



}3 



LDA 
STA 



(GBASL) , Y 



CPY LONG 
DEQ 11 

rwr 

BNE 



10 



LDY TPS 
LDA iO 



UTA 
DEY 
BMI 
LDA 
STA 
DEY 

BPL ]2 

CLC 

RTS 



BUFEIN, r 
13 

(GBASL) , Y 
BOrFIN, Y 



* CATALOG 



}0 



LDY 

LDA 
STA 
CMP 
BEd 
lUr 
BNE 



to 

cm, Y 

?200, Y 
fSBD 

n 

JO 



}T0 



t£ 

§8 

JT 

ERREUR 

.JSR CiETRF.T 
JSR HOME 
JSR LITFKEt 
JMP CHOIX 



JSR 
QVfP 
EES 
CMP 
BNE 
JSR 



* CMBKCHE DATE/HEORE 

• CREE FICHIER 



CREFIC 



scoei 
scoe? 

tfC3 
ACCESBT 

FTLETYPE 
iO 

AVXrLTP 
STA AUXFLTP-H 
IDA tl 
STA STORAGE 



LDA 
OUA 
StA 
LDA 
STA 
LDA 
STA 
LDA 
STA 



JSR 

sec 



}1 



CREFTCn 
11 

BIT POmES 

BMI 12 

JSR ERREUR 

JSR GEVRET 

SEC 

RTS 

CLC 



Jl 



JSR ML I 
DFB CETTIME 


il 

SBr92, Y 
STA DATECRE, Y 
DEY 

11 



DA 

LDY 

IDA 



BPl 



JSR ML I 

DFB CREATL 

DA FARLST 
RTS 



* GET EOF 



JSB MLT 
DFB GETEOF 
PARECF 
11 

JSR ERREUR 
RTS 



DA 

Bcr 



* OUVRF. FTCRTF.R 



JSR HOME 



OUVREFIC JSf? Mil 

DFB OPEN 

r>A PAHT.STC] 

BCC J J 



JSR ERREUR 



* E«rT FZCHTSP 



11 



LDR 


REFNUM 


STA 


RErNUMH 


JSS 


MI. 7 


DFB 


imiTE 


DA 




BCC 


JJ 


JSB 


BRREUR 


RTS 





* SIT nCHIER 



I.TTFTC 



STA 



tJSR ML I 

lira HEAD 



DA 

RTS 



FAHLSTN 



VIDE riCHIEH 





rpfhiim 


SY/l 


REFHUM? 


JSH 


ML! 


DFB 


SETEOF 


DA 


PARLST7 


BCC 


11 


JSR 


ERREUR 


RTS 





• CLOT FICHJER 



CLOSEFJL LDA REFHUM 

JSR MLI 

DFB CLOSE 

DA PARLSTC 
RTS 



* ONLINE 



JO 



JG 



LSR 
iSR 
LSR 
LSR 
ti!iD 
ORB 
JBR 
LDX 

]E LDA 

sec 

JSR 
UiX 
BKF 

]P LDA 
UlT 
BPL 
LDA 

]1 JSB 
LDA 
JSR 
LDA 
AND 
STA 
LDA 
JSR 

LDA 
ORA 

JSR 
DEC 
BNE 
LDA 
JSR 

ERR DEC 
BPL 
JSR 

VfDEB JSR 
JSR 
JMP 



tiCOOOOlll 
f%10110000 

com 
to 

MEsom,x 
ir 

COOT 

iF. 

fl " 

hfIG 

}1 

t"2" 

COOT 
I" " 

coin 

LUC 
f$F 

COOT 

aUFONLIN, Y 

COOT 
LNG 
AFF 
f$SD 

com 
CUT 

ON L WED 

GETRET 

HOME 

LITPREF 

CHOJX 



* GET FJLE info 



GFI 



11 



JSR 


MLI 


DFB 


GETFJUfO 


DA 


PARISTG 


BCC 


]1 


JSR 


ERREUR 


RTS 





* CUANCE PREFIXE 



JSR 


HONE 






Luy 


t>Mi:SONL 






LDA 


f<MCSOHL 


MWPREF JSR 


HOME 


JSR 


STROUT 


JSR 


LITPBEF 


JEfi 


MLI 


MODPR LDA 


#7 


DFB 


ONLINE 


STA 


CV 


DA 


PAHLSTN 


JSR 


VTAB 


BCC 


10 


LDA 


tv 


JSR 


ERREUR 


STA 


cn 


LDA 


US 


LDr 


l>MESmD 


STA 


CUT 


LDA 


t<HESfiOD 


LDA 


CUT 


JSR 


STROUT 


ASL 




LDA 




ASL 




STA 


wm 


ASL 




LDA 




ASL 




JSR 


CBASCALC 


TAr 




INC 


GBASL 


LDA 


BUFCMLIN, y 


JSR 


INPUT 


STA 


LNG 


BCS 


OKCH 


AND 


fiOOOOllll 


LDY 


TPS 


BBQ 


ERR 


RKF. 




LDX 


10 


JSR 


BIP 


MIA 


MESONO, X 


B£Q 


MODPR 


EEQ 


m 


MODO STY 




JSR 




INC 


PATHNAME 


INX 




BEQ 


MODULI 


BHE 


JG 


DEC 


GBASL 


LDA 




}Z LDA 


(GBASLl , r 



IHY 

STA PATHHAME, Y 

DEY 

DEY 

BPL Ji 



MODliLJ JSR 
DFB 
DA 
BCC 
PHA 
JSR 
PL A 
JSR 
JSR 
JMP 

OKCn JMP 
PAFLSTCP DFB 
DA 



MLi 

STPSEFIX 
PARISTCP 
OKCti 

SDAFB 

ERREUR 
GETRET 

VWEB 
1 

PATHNAHE 



LIT PREFIXE 



LITPREF JSR 
DFB 
DA 
BCC 



MLI 

GTPREFIX 
PARLSTCP 
JOOO 
JSR ERREUR 



WOO 



JO 



J 00 



LDA 
STA 
JSR 



t3 

CV 
VTAB 



LDX to 

LDA MESSPR, X 

BCD }00 

JSR COOT 
INX 

BNE JU 

LDA PATHNAME 

STA LNGPATHN 

LDX tl 

LDA PATHNAMt:.,X 

ORA iiLOOCOOOO 

JSR COUT 
INX 

DEC PATHNAME 

JMP SDAFB 



RECEVDIR UN CARAC DANS 1 'ACC 
CARRY CLEAR SI PAS DE CARRCT 



BIT BINT 

BMI PEC0ZT7 

LDY REGY 

LDA SC089, y 

AND i%00001000 

BNE II 

CLC 

RTS 

LDA tiOOOOOllO 

EOR S42B 

STA 

IMA $<:OSB, Y 

AlfO iiOlliilJl 
SEC 
RTS 



RECa2T7 JSR PARASSC 

LDA tl 

JSR STATSSC 

BCS OK 
RTS 



OH 



LDA *t 00000110 
EOR 5423 
STA 54^9 



Pom's n° 30 



JSR FAFASSC 

JSR REJiDSSC 

AND ftOllJllll 
SEC 

tars 



PARASSC LDX RSOX 
LDY JJCCy 



CMF CODEHR 

BEQ ]0 

CMP to 

BUS }1 



]0 



}2 



LDP. 
BPL 
JSR 



£RB£(JRS, Y 
COOT 









SMI 










LDA 


f" " 








JSR 


COST 








JJ>A 


tS31 


JSR 






•JSR 


ZOUT 


JSR 


SDAfS 










to 




BTS 




STA 


cu 








LDA 


*IQ 








STA 


CM 




KEZVRN (OU ESC 


JSR 


VTflS 








I.DA 


*S2l 














JSR 


SDAFS 


JSB 


COOT 




LDA 




LDA 


f " 




STA 


cv 


JSH 


COUT 




JSR 


VTflB 


JSR 


RIP 




LDA 


10 


LDY 


»SFF 




ST/l 


C!l 


INT 






LDK 




LDA 






LDA 


ifiMESRET 



n 



14 



}5 



JSR STROtJT 

BIT Ksa 
BPL J I 



SIT 
LDfl. 
CMP 



LUA 
JSR 
JSR 
RT3 



SF.Q J 3 

(MP f^lB 

BEQ J 4 

JSH ail- 

BCS Jl 

JSR J 5 

RTS 

JSR J 5 

SEC 

RTS 



VTAB 
CLREOP 



MESRET ASC " 

Appuyss aui- <flf;l'y«J> 

DFB 



Source T.P0MS.4 

Assembt&ur ProCODE 



SIP 



BIPl 



BIP2 



JMP VTAB 



* MESSAGES D'ERREIJR 







ERREURS DFB 


3. 8, S21, S2S, $2F, $5A, $iE 






ASC 


"Ezrstjr d'MCrr^s plfsgjif?" 


TTA 




DFB 


6, 7,S45,$4S 


PHA 




ASC 


"Volume/ flchlsi IntiiiUVAbla" 


TXA 




DFB 


4,S2B 


PHA 




ASC 


"Disffue pro teg^" 


Loy 




DFB 




Tm 




ASC 


"Nom inoorracC " 


ROR 




DFB 


17,$4B,$49 


TAX 




ASC 


"Dlsque/ctlrectcry S3tur6" 


nr.x 




DFB 


$4E 


BNE 


BIPl 


A.SC 


"PrtitAi}i en lecture" 


BIT 


HP 


DFB 


S7C 


DEr 




ASC 


"Typ^ TEXT seuiement- . . " 


BNE 


BIPl 


DFB 


SfD 


SEC 




ASC 


"Valums £3ture" 


PLA 




DFB 


$7F 


TAX 




ASC 


"PtoDOS est indispensable" 


PLA 




DFB 


^47 


ray 




ASC 


"Ce nam de flctiler ejcisce d^JiS" 


RTS 




DFB 









ASC 


"Err en r ???" 






DFB 


(1 



* IHTBRFACE //c 



RESET 


LDA 


i21 








JSR 


COUT 








JA'K 


■ItiXT 


DEOXC LDA 






JSR 


HOME 


STA 


54 7C 




JSR 


CLOSEFIL 


LDA 


If? SB 








STA 


$4 7D 




Lor 


to 


U>A 


fSSl 


HESETl 


LUA 


MESRESl, r 


STA 






BEQ 


RESET2 


LDA 


#57(.- 


RESET! 


JSR 


COOT 


STA 


$42 




IKY 




STA 


S3C 




BNE 




LDA 










3TA 


943 


RESET? 


JSR 


GETRET 


STA 


$3D 




JMP 


DE300 


STA 


$3F 








LDA 


fS7E 


VTADl 


srn 


CV 


STA 


S3F. 

















lyilnl 












= <m 















62 
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SEC 

JMP ?CJJ i 



• VERIF SI SSC 



VERSSC 


LDY 


/7 


VERTFQ 


TYA 






ORA 


#sco 




STA 






LDA 






CMP 






SEQ 


n 




DEY 






BWE 






SEC 






RTS 




n 


STY 


INT 




TYA 






em 








tSCQ 




STA 


SSCINIT-H 




STA 


SSCRCAD*! 




STA 






STA 


SSCi t J 




STA 






STA 


}2+2 




STA 


}3^? 




STA 


J4-f2 




STA 


RECX 




PLA 






ASL 






fiSL 






ASL 






ASl 






STA 


RECr 


n 


WA 


SCUUD 




STA 


SSCIHIT 


13 


i.nA 






STA 


SSCREAD 


1 m 
J» 








STA 


SSCHTAT 




LDY 


10 




STY 


D2HT 




LDA 


SCO 00 




CMP 


iS2C 




BEQ 


J-5 




EEC 


DINT 


JS 


CLC 






RTS 




SSC 






INITSSC 


JI4P 


isscmiT) 


HEADSSC 


JMP 


ISSCREAD! 


STATSSC 


JMP 


f SSCSTAT) 


SSC J NIT 


UA 


sua 00 


SSCSEAD 


DA 


$0000 


SSCSTAT 


DA 


$0000 


sscl 




smcio 


t 







' CHAIHES S STOCK 
t „ 



HESCHOIX ASC "PLIMVCO" 



MESMENU ore S3D, -JSD 

ASC "<fl>8cevGir annuaire avec n/ cfe t^l^phone" 

DFB $80 

ASC "<h'>f> rfitrnvnir sans ni t^lephons" 

DFB SSG, $8D 

ASC "<T::>mpiJ.nttsi uji rit-Jiier" 

DFB SSD, $W 

ASC ••<M>odlfler Is preflxc" 

DFB $eD, S8D 

ASC "-tv^oiunies cr iignc" 

aib S8D, $8D 

ASC "<C>atalogue" 

DFB SBD, SSD 



ASV 

DFE 
ASC 

DFB 

WESTITfiiT 

ASC 
DFB 

AEC 

ASC 
DFB 

ASC 

DS 

DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 

ASC 
DFB 

ASC 
DFB 

ASC 
DFB 

DFB 
ASC 
DFB 
ASC 
TNV 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 



SSD 



Votre choix 



POMS 
FASSSC 

CMD 

MESONI. 

MESONO 



"Annusire sZectronlqu" 

"e Pom's" 

S$D,0 

** T PaTn " 

"la carte SuperSerle est necessaire . 
SSD, 

"CA'F" 



S8n 

S3D 

SSD, S3D, 
"Port " 
D 

" teet " 




"liouveau priflxt : 

sao, SSD 





?SD 



" ?_paM's VI. " 

S8D, $SD, SSD 

Ic) Pom's, CP, JLB 1Z/5/1S87'- 

SSD, SSD, s8a, s8n 

" Un piogramme Pom's, " 

SSD, s an 

" la revue des Apple" 

tievue Fom's : (1) Ji 51 24 43" 
$SB, SSD 



tJlHl- 


LIS 


1 


POSC 


DS 


1 




DS 


1 


TPS 


DS 


1 



PARLST 


DFB 


/ ; param^tres pour create 




DA 


PATifN-WE 


ACCESBT 


DS 


1 


FTLETYPE 


DS 


1 


AVXFLTF 


as 


2 


JtiVKAUt 


DS 


1 


DATECBE 


DS 


2 




DS 


2 


F^AREOr 


ore 






us 


1 




DS 


3 


INT 


DS 


1 


LNGPATHN 


DS 


1 


CODERR 


DS 


1 


PARLSTO 


DFB 


3 ; parametres pour ope/t 



DA 
DA 
DS 



REFNUM 
PARLSTG DFB SA 



PATHtJAMi: 
FILEBUF 
1 



paramitres pour getlilelnle 



Pom's n° 30 





DA 


PATHNAME 






DFS 


$2D. 






D3 


1 






ora 


f^2E, "> 






iJS 


1 






DFB 


$2r, "V 




AUXTYPG 


DS 


2 




ex) 


DFB 


S30, "1 






DS 


I 






DFB 


$31, "* 




BL GCKVS 


DS 


2 






DPR 


S-tB, "/ 






DS 


U 






DFB 


?3C, "/ 














DFB 


S3D, •■/ 




PARLSW 


DFB 


4 






DFB 


S3E, "/ 






DS 


I 






DFB 


SSA, "* 






DA 








DFB 


S7A, •" 




LAS 


DS 








ora 








DS 


2 






DFB 







PARLS77 


DFB 


2 














DS 


] 






KCT2 DFB 


54 J, 565, 


"e 




DPS 


0, 0, 






DFB 


5^^, SS5, 














DFB 


$43, ^65, 


"s 


PARLS7V 


DFB 


I 






DFB 




"e 




DFB 




PAltUJO DFB 


2 


DFB 


S41, SSI, 


"i 








W DS 


1 


DFB 


Si3, SSI, 




PARLSTN 


DFB 




DA 


PA TMKUME 


DFH 


Sifl, SKI, 


"a 









S'ARLDl DPB 


3 


DFB 


$'i3,S69, 


1? 4 




Da 


BCltOHLIN 


OA 


PATfiNTiME 


DFB 


$4S, $69, 


"J 












OFB 


$13, 56f", 


"a 


uvr 


DS 


1 


ACTl DFB 


S23, "t 


DF& 


$48. S5F, 


"o 


LNG 


DS 


I 


DFB 


S24. "S 


DFB 


S42^ S75, 


"ij 








DFB 




DFB 


$48, $75, 


"u 


RECX 


DS 


1 


DFB 


?27. "i 


DFB 




"f 


REGy 


DS 


1 


DFB 


^^C, •'< 


DFB 








Recapitulation T.POMS 

Apres avoir saisi ceiu riaapittJaiian 
BSAVE TPOMS, AmOO, 14033 





FF 


SA 


AD 


00 


BF 


Ci 


4C 


215S:SB 


03 


17 


A9 


04 


20 


2B 


23 


lOOSzFB 


B» 


A9 


7F 


JO 


S3 


3A 


lie 


?160;2!} 


5S 


29 


90 


ot 


20 


9£ 


SA 


201S,-DS 


03 


SB 


43 


2C 


90 


IS 


20 


SI ea:4c 


A7 


SO 


AS 


te 


US 


24 


AP 


MIS: St 


FL- 


AO 


00 


B9 


ao 


2U 


to 


2110:41) 


2t 


J3 


SU 


4B 


2F 


AA 


AD 


2020:09 


20 


SD 


FD 


CS 


S3 


F5 


20 


217S;49 


2F 


ED 


4C 


2F 


20 


24 


ED 


202S:F2 


2k 


4C 


DO 


03 


AO 


B3 


FB 


2180:Ei 


24 


A2 


OS 


BD 


?C 


25 


FB 




lis 


DO 


21 


AS 


CO 


FB 


DO 


Siaa:Ot 


20 


SD 


FD 


S3 


DO 


FS 


A 9 


2038:03 


20 


IE 


2C 


AH 


3A 


2t 


20 


2190:06 


iS 


22 


AS 


27 


S3 


97 


25 


2040: as 


FE 


A9 


07 


20 


ED 


FB 


26 


219S:99 


DO 


07 


Si 


10 


F7 


20 


Al 


204S:33 


FE A9 


07 


20 


A4 


2C 


20 


21Aa:2t 


90 


03 


4C 


A7 


20 


20 


IF 


2051- 3r 


2h 


20 


A-> 


7C 


A 9 


OA 


HD 


21Ag:2S 


BO 


A4 


AD 


33 


2T 


SD 


OB 


Z0S$:F2 


03 Al> 


2B 


SO 


F3 


03 


49 


21Bi:n 


20 


7S 


26 


90 


09 


20 


43 


20W:AS 


SO 


F4 


03 


AD 


30 


BF 


sa 


21iiS:2A 


20 


as 


2A 


4C 


Af 


20 


2V 


20iS:6D 


2F 


20 


00 


BF 


CS 


ic 


2F 


2 ICS: A3 


28 


90 


Of 


20 


BE 2k 


4C 


2010:EO 


35 


AD 


OB 


17 


29 


OF 


BB 


2 ICS :A7 


20 


20 


53 


FC 


20 


33 


25 


307S:00 


n 


AS 


BP 


00 


n 


ce 


99 


2100:20 


9S 


24 


A9 


00 


20 


2B 


2S 


^sao: do 


1 7 


ee 


33 


ca 


00 


DO 


F3 


2 ma: AO 


00 


BS 


BF 


23 


FO 


06 


29 


2oaB:A9 


AF 


so 


01 


n 


EE 


00 


VJ 


2iEB:n) 


FO 


CS 


DO 


f-5 


A9 


OA 


20 


2090:211 


00 


BF 


C£ 


70 


2F 


4C 


A7 


2'lEB:2B 


2B 


20 


3S 


25 


A9 


42 


SO 


20Sfl:?n 


4A 


21 


43 


21 


in 


2e 


t« 


31F0:1S 


25 


A9 


FF 


ej> 


74 


SB 


sa 




C2 


ss 


F3 


27 


9B 


2i 


AS 


21FS:4A 


24 


C9 


IF 


FO 


32 


CS 


IB 


zoAens 


it! 


ED 


FO 


20 


39 


FB 


20 


2200: DO 


03 


4C 


A( 


22 


C9 


10 


DO 


22B0:5S 


TC 


20 


B5 


21 


A9 


01 


20 


2208:03 


4C El 


22 


CS 


IS 


DO 


03 


208$ :3S 


21 


A9 


16 


20 


J* 


21 


A2 


2?10:4C 


fl I 


23 


frs 


oc 


no 


03 


4C 


POCDfOC 


an 


SA 


?!) 


FO 


BS 


?0 


FJl 


2219 1 3i 


23 


CS 


iO 


DO 


03 


4C 29 




BS 


OB 


FS 


SO 


C7 


29 


A9 


2220:23 


C9 


16 


DO 


03 


4C 


3E 


23 


20DO:03 


ss 


22 


A9 


le 


e3 


23 


fi9 


222B:Ae 


7{ 


25 


FB 


CA 


4C 


30 


23 


20DS:0i 


211 


2S 


2B 


AS 


OS 


B9 


A7 


2230; AD 


71 


25 


FB 


03 


20 


CI 


23 


20E0:2O 


99 


9F 


04 


33 


10 


F7 


AS 


223S:AB 


CF 


2S 


FB 


B3 


20 


DS 


S3 


2 BE a- 04 


SB 


2B 


2B 


AO 


SB 


B9 


SF 


2240: AD 


ec 


25 


FO 


03 


23 


EC 


23 


£OFO:SC 


ra 


as 




ED 


FD 


ca 


DO 


2243:20 


4A 


24 


SB 


69 


25 


20 


4A 


2l>Fli!i'S 


AH 


01 


SB 


21 


2F 


A 9 


13 


2250:24 


3D 


SA 


25 


AD 


S9 


25 


CD 


2100:20 


47 


ra 


hS 


23 


65 


26 


S5 


22SS:7S 


25 


30 


03 


4C 


F7 


21 


DO 


2108:26 


90 


02 


Ee 


27 


20 


2C 


27 


22 SO: ID 


AB 


SA 


25 


ca 


45 


DO 


13 


SllOrAO 


oe 


AO 


00 


16 D9 


BS 


2C 


22SS:A9 


01 


SO 


SB 


25 


A9 


00 


go 


21ie:Ft> 


OS 


as 


la 


FS 


20 


F2 


2A 


2270: DB 


2a 


20 


4A 


24 


20 


4A 


24 


2120:B0 


S7 


A9 


99 


3D 


34 


21 


9B 


2273:4C 


f ( 


23 


4C 


F7 


21 


AD 


£A 


212B:F0 


09 


EE 


34 


21 


EE 


34 


21 


2290:25 


C9 


4S 


FO 


OS 


BO 


17 


4C 




nB 


F7 


Br 


99 


20 


20 


*-} 


2299 :F7 


21 


AD 


£9 


25 


C9 


44 


90 


?13a:F» 


AO 


27 


A9 


OF 


91 


2S 


SB 


2290: BA 


A3 


01 


ao 


SD 


23 


A9 


00 


2140:10 


FB 


eo 


A9 


00 


«D 


77 


25 


2293 :SD 


DB 


2D 


4C 


F7 


21 


AS 


01 


21iB:FQ 


05 A9 


01 


sa 


77 


Ji 


20 


22AQ: 80 


fc 


25 


4C 


F7 


21 


AO 


6D 


21B0:5e 


FC 


20 


C7 


29 


AD 


3B 


2F 


72AS:?S 


no 


Of 


7(1 


4A 


24 


4r- 


F7 



22&0:21 


20 


4A 


24 


C9 


42 


OG 


15 


■ ^(j 


Ad 


01 


B9 


41 


25 


20 


23 


22B3:AI} 


6E 


25 


FO 


BD 


A9 


01 


SD 


244 1 24 


C8 


cc 


41 


25 


DO 


F4 


4C 


??rO - S P 


25 


A9 


00 


30 


BB 


2B 


SD 


244 8 ! 94 


25 


20 


FF 


2 9 


BO 


19 


AD 


22C9; 6D 


25 


4C 


F7 


21 


C9 


47 


DO 


245 ! 00 


CO 


2C 


1 


CO 


29 


OF 


C9 


22£tO; QO 


a9 


01 


SD 


71 


25 


A5 


00 




fq 


OE 


C9 






EB 


20 


22D3 : 8D 


DB 


2D 


3D 


€D 


25 


4C 


F7 


2460: lA 


25 


A2 


FF 


9A 


4C 


A7 


20 


22EQ:21 


20 


4A 


24 


C9 


02 


DO 


OA 


} J Jiff • An 


20 


lA 


25 


A2 


FF 


iA 


4C 


2?F.A:A9 


7 


Bn 


70 


25 




00 


All 


24 70 • FA 


-?J 


■2c 


74 


2S 


30 


i4 


20 


33F0 : 


3P 


C9 


03 


00 
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^Pro'DOS 8 
version 1 2 



Les versions de ProDOS fleurissent aussi rapidement que les 
versions de 'Systeme' sur le Macintosh, ProDOS 8 version 1.2 
prdsente des ameliorations apprcciitbles, pariiculiereinciu pour 
les posscsscurs d'Apple IlGS. Si votrc revue preferee n'cst pas 
encore autorisee a mettre le fichier ProDOS (© oblige...) sur 
ses disquettes, les revendeurs agrees sont comp^tents pour le 
distribuer. 

Outre la correction de quelques bugs, la version 1.2 donnc 
I'heure : I'horlogc du GS est reconnue, GET_TIME fait 
maintenant son office norraalement. Sur un //e, la carte horloge 
Thunderclock fonctionnera de 1986 ^1991 grace a la nouvcllc 
tabic de ProDOS. La version 1.1.1 se trouvait, elle, limitee a 
1987, 

Lc 'SmartPort' est reconnu comme tel et peut piloter quatre 
volumes, contre deux avec les version.s precedentes ; ils se 
verront affectes S5/D1, S5/D2, S2/D1 et S2,D2 (ceci n'cst vrai 
que s'il n*y a pas de lecteurs connect^s au port 2). Le cas se 
presente sur le IlGS equipe de deux Unidisks et une carte 
d'extension mdmoire : on trouvera I'Unidiskl en S5/D1, 
rUnidisk2 en S2/D2 et le disque virtuel /RAM5 en S5/D2. 

L'ordre de recherche des volumes par ON_LINE a et6 modifie 
et, lors d'un dcmarrage par recherche de;; ports (option SCAN 
du tableau de bord), le lecteur 140Ko connecte au port 6 
passera aprfes le SmartPon. 

Lors du 'boot', ProDOS 8 cherche un eventuel 'driver' du 
rdseau AppleTalk avant dc chercher lc premier fichier 
'systerae'. 

L' octet Mac hid en $BF98 nc pcimct loujours pas a un 
programme dc lever rambigui'te : est-on sur un //e ou un lies ? 
Bien sur, il est posibble de se decider en testant de nombreux 
points de la m^moire, k panir de $D742 la routine horloge 
ecritc cn 65816 par cxemple. 

On trouve dans cette version des modifications moins visiblcs, 
telles le masquage des interruptions durant les appels au MLI, 
rairivee d'une routine de lecture de blocs simple d'acces... 

La volumineuse mise a jour de Beneath Apple ProDOS pour les 
versions 1 .2 et 1 .3 donne I'en.semble des modifications avec un 
detail des adrcsscs et du fonciionneraent dc ProDOS ; clle est 
disponible par correspondance aupres de Quality Software 
($22,5U franco). V (K a Paris, di.stribiie egalement les documen- 
tations tcchtuques qui font defaut dans les cmbailages... 

a 



La crapufe 

Enquete policierc 
Jeu pour Macintosh 
512Ko el Plus 



Voici encore une creation de 
Jean-Loilis Le f^rpton Cre5;- 
ponsable et principal auteur 
de Froggy Software) que 
nous avons beaucoup 
apprccicc, bicn que n'etant 
pas encore parvenus au bout 
de I'enquete a meiter, et 
apres etre morts un nombre 
de fuis respectable ! Nous 
tenons a souligner, outre la 
qualitc du jcu^ tant par le 
scenario que graphisme, 
trois innovations que Ion 
aimeralt trouver plus 
frequemment : 

• la disquette ne comporte 
pas de protection, la 
documentation expli- 
quant : "Ce jeu a ete ecrit 
en Turbo Pascal. 11 n'est 
pas protege contre la copie. 
Honte aux pirates. Vive 
Froggy." ; 

• il est possible de 
s'exprimer en 'petit n&gre' 
(ouvrir porte)^ ou cn bon 
frangais (j'ouvre la porte) ; 

• une courbe de reussite 
vous indique a tout 
moment revolution du 
parcours. 

Rnfin, vou5 avez la pos- 
sibilite de contacter Froggy 
Software, en cas de deprime 
totale, pour obtenir la 
solution du jeu. II y a pcu 
d'editeurs fran^ais ; celui-ci 
etant en outre de qualite, 
profitez-en ! 

Froggy Software 
34, avenue Henri Chevreau 
75020 Paris 
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9^icro -informations 

Jean-tMicfiel Qourevitcfi 



Apple est en passe de gagner son 
pari. Les Macintosh sont pris au 
serieiix et s'implmtent dans les 
cnlrcpnscs, L'diinoncc dcs Mat 
11 (qui devraient maintenant 
commencer a etre disponibles au 
compte-gouttes) a defmitivemem 
oil vert les yeux cie nombreiix 
chefs d'entreprise qui ne juraient 
jusqu'ici que par Saint MS-DOS. 
L'^Lonnarti, c'esL que ceue 
consecration du Macintosh se 
produil precis^ment au momeni 
oil IBM annonce une serie de 
micro-ordinateurs qui represente 
probablement le standard des cinq 
prochaLnes annees- 

Consdquence ; Apple est 
d^sormais assure d'Stre I'un des 
survivants de la guerre de la 
micrO'informatique qui n'a pas 
fini de faire des victimes. Tout 
est-il done rose dans le. ciel de 
Cupertino ? Pas rorcemeni. Car il 
faut bien reconnaitre que, malgre 
son interface imitde par tous er 
malgr^ sa souris et ses fenetres, 
le Macintosh tnanque encore 
d'outils dc dcvcloppcmcnt 
"intelligents" (et notamment des 
langages type Prolog ou 
VP-Expert) qui commencent h se 
multiplier sur les ordinateuis 
MS-DOS et permettront de creer 
les programmes de demain. U ne 
faudrait pas que cc retard sc 
prolongs, ,, 

Or, voici precisement qu'Apple 
sc dcgagc quelque peu de I'appui 
logistique donne aux logiciels. 
Une fill ale a ete creee, (au depan 
a 100%, puis qui deviendra dans 
un an independante) qui reprend 
la plupait des activitds "soft" de la 
firme a la pomme. Ainsi, 
Applcwyiks, MacWrite, Mac- 
Project, MacDraw, MacTerminal, 
etc. ne poneront plus etemel- 
Icmcnt le logo d'Applc. 
Offictellement, il s'agit de mettre 
iQus les ddveloppeurs sur un 
meme pied d'egaliie pour les 
encourager a mettre au point de 
nouveaux logiciels. Selon 
certains, il s'agit aussi de 
contrcbalanccr la position 
dominante de Microsoft, trop liee 
h. IBM. Reste k voir comment se 
traduira cette nouvelle politique 
dans les fails. D est parallglement 
intijrcssant dc notcr que ccttc 
decision avait ete anticipee par 



Guy Kawasaki, "6vangeliste du 
logiciel" chcz Apple, et 
nntamment charge de veiller a ce 
que tous les logiciels rcspectent 
bien I'interface Macintosh. 
Kawasaki a quitie Apple voici 
quelques mois pour diriger 
ACIUS. Derriere cette raison 
socialc aux consonnanccs latincs 
se cache tout simplement la filiate 
americainc d'ACl, qui va vendre 
aux Etats-Unis un logiciel dont le 
nom de code a longtemps etc 
"Silver surfer", mais qui sera 
finalement lmc6 sous le nom de 
"Fourth Dimension". Eh oui, il 
s'agit bien de notre 40. . . 

Apple se retirerait-il comple- 
tement du logiciel ? Pas vraiment. 
Car, elle gaidera dans son verger 
plusieurs secteurs, D'abord les 
langages de programmation 
prec6demment evoques, et pour 
[esquels il est temps de mettre les 
bouchees doubles. Cnsuite les 
systemes. Et notamment Unix. 
La version A/UX, qui sera 
proposee sur Macintosh U des 
septembre (a condition de rajouter 
au micro une unite de gestion de 
la memoire par page basee sui le 
coprocesseur Motorola 68851) 
offrira des possibilites de 
communication avancee 
(connexion possible a Ethernet, 
Appletalk et systeme de 
mcssagerie standard Unix) tout 
en ayant acces k la boTre a ontils 
du Mac, cc qui permettra done de 
dSvelopper des applications Unix 
ayanl I'aspect classique des 
applications Macintosh. 
Nombreux d6bouchds possibles 
dans I'enseignement superieur et 
le domaine technique. Ht 
fonctionocmcnt en mulliiache. . . 

Le multitache est encore a 
I'honneur dans le domaine des 
systemes. Car, bien sur, Apple se 
garde sous le coude tous les 
systimes, finder, etc. Et voici 
precisement qu'oii iravaille a 
Cupertino sur un nouveau 
systeme d'exploitation dont le 
nom de code est encore 
"Juggler". Et ce systeme destind 



aux Mac 11, serait (h. terme, car 
les premieres versions se 
contenteraient de fotictionner par 
interruptions) multitache, utiLisant 
lui aussi le coprocesseur 68H51. 
Se presemant comme le celebre 
"switcher", il permettrait de faire 
luurner sirnultancmcnt plusieurs 
programmes, d'effectuer des 
impressions en tache de fond, 
tout cn faisant fonctionner un 
autre logiciel. Rref, un reve sur 
micro. Qoant au "Servant" 
developp^ par Andy Hertzfeld, il 
ne semble finalement pas 
qu'Apple I'ait retenu, Hertzfeld 
pourrait encore le perfectionner et 
le vendre directement a tous ceux 
qui n'ont encore que des 
vulgaires MaciJitosh ou 
Macintosh Plus (ce qui constime 
cependant encore la quasi-totalit6 
des utilisateurs de Mac, . .), 

Chcz Apple, on ne cesse de 
penser a I'avenir. Ce role de 
visionnaire semble particulie- 
rement devolu a Jean-Louis 
Gassee. Des propos qu'il a tenu 
au cours des demiers mois, on 
peut retenir : Timportance des 
RNIS (ccs nouveaux reseaux de 
transmission qui permettront de 
Liansmettre aussi bien la voix que 
les donnees k des vitesses quatre 
fois supdrieures h celles 
d'aujourd'hui) et des nouveaux 
moyens de stockages. 

La disquette de 80flKo ne tardera 
pas a devcnir aussi obsolete que 
celle de 143Ko de I'Apple //, Un 
coup d'ctil aux nouveaux madias 
permet de juger la rapidite de 
I'evolution ; les disquetres 
developpees par Bernouilli 
permeftent d^ja de stncker 20 
Mega-octets, soit I'^quivalent 
d'un volumineux disque dur. 
Elles sont utilis^es par la firme 
Bering dans son systeme Totem. 
Et la firme americaine Jasmine 
(qui avait deja piescntc un disque 
dur a 550 doUais, soit moins de 
4000,00 F), utilise des disqucLies 
Kodak DTC de 20 Mdgas. 
Jean-Louis Gass6e a egalement 
laiss6 entendre que Bill Atkinson, 
I'auteur de MacPaint, travaillait a 
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un produit r6volutionnaire 
utilisant une interface encore plus 
conviviale pour remplacer le 
clavier. Avec la niise sur le 
marche du Hcs et du Macintosh 
11, la necessite d'une impression 
en coulcurs est devenue plus 
aigue. On travaille done chez 
Apple d'arrache-pied a la niise au 
point d'une veritable imprimante 
couleurs (uiilisant !a technologic 
du jet d'encre ou ceile du laser) a 
un prix restant abordable. Pas si 
facile. 

Enfin, il va falloir assurer I'avenir 
du Macintosh II. Jean-Louis 
Gasscc a annuncee qu'Apple 
allait publier les specifications du 
Nubus, permettant ainsi aux 
fabricants dc cartes ct aux 
developpeurs de construire des 
cartes iulelligenLes conicuant des 
ROM communiquant dinectement 
entre elles sans recours au 
processeur. Le Mac II a d'ailleurs 
declenchfe une frenesie 
d'annonces de programmes et de 
cartes d'extension, 

Le Macintosh n 
au programme 

Brainpower, I'auteur de 
Staiview - I'un des meilleurs 
programmes de statistiques pour 
le Mac - a annonc6 une nnuvelle 
version pour le II utilisant le 
coprocesseur 6881, raccdl^rateur 
de virgulle flottaiite, et capable 
d'adresser 2 Gigaoctets de 
memoire. Ce programme 
permettant des regressions a 
variables multiples, etc. sera 
vendu dfes juillet pour 450 
dollars. 

Cot^ cartes d'extensions, c'est la 
sumataliid. Supermac Tech- 
nology, propose des cartes 
graphiques (1365 x 1024 points 
cn monochrome et 1024 x 768 en 
couleurs). Tout comme AST 
Research, qui a dtiveloppe des 
cartes d'extension memoire, des 
canes sorties, ei la carte 386 
permettant une emulation 
MS-DOS. Sigma Designs, a 
ddveloppc Laserview, un 
moniteur monochrome et son 
adaptateur permeitani une 
resolution de (1664 x 1200 
points) vendus 2300 dollars. 



Cette carte fonctionne egalement 
sur le Mac SC. Et ce n'est qu'un 
debut. Au programme, pour tres 
bientot r d'autres carles avec 
co-processeurs pour faire 
fonctionner des programmes 
MS-DOS, un deluge de cartes 
vid6o, communication ou 
memoire, des systfemes 
d'acqnisition des donnees, ou de 
controles de processus pour 
environnements scientifiques ou 
de production en usines, des 
cartes musicales, etc. 

Macintosh Plus, 
toujours du 
graphisme 

Sur le front du Macintosh Plus, la 
source des nouveautes ne se larit 
pas encore. Voici d'abord, 
impnrte chez nous par 
P-!ng6ni^ rie, I'Adobe Illus- 
trator d'Adohe (createnr dn 
langage PuslSc] Ipl). Un veritable 
outil de creation graphique, bien 
sur basd sur le langage de 
description graphique PostScript, 
qui definit les images ^ i'aide de 
droites et de courbcs precises et 
non de points. On peut utiliser 
commc base de Eravail une 

photographic num^risee, un 
croquis ou un document 
MacPaint, et ensuile la 
transformer, la reprendre, 
I'enrichlr, aj outer des 16gendes, 
pivoter, agrandir, reflechir, 
deformer certains details. Le 
rdsultat fmal peut etre imprim6 
sur une imprimante LaserWriter, 
ou une Linotrunic 300 (definition 
de 2540 points par pouce). Pour 
les tirages couleurs, Adobe 
Illustrator imprime s6par^ment les 
quatre films couleurs. A cote de 
ce veritable programme graphique 
professionnel, MacPaint a 
soudain I'air d'un jouet pour 
eleves de maternelle. Si ce 
logiciel vous Lnteresse, Pom's 
peut vous faire parvenir contre 
80.00 F, une disquette de 
demonstration en anglais qui en 
dit long sur les possibilitds de ce 
programme vendu 5400 F HT. 
Laserware, a^ d'autre part 
developpe aux Etats-LJnis un 
autre programme graphique 
generant automatiquemeni du 



code PostScript et produisant des 
films separes pour ks couleurs : 
c'est Laserpaint, compose d'un 
module dc dcssiii, d'un module 
de peinture, et d'un modele de 
texte pemienant le crenage, etc, 
Prix 495 dollars. 

Toujours de la 
PAO„. 

Sur le front de la publication 
assistde par ordinateur, on ne 
d^sarme pas. Tandis que 
PageMaker son sa version 2,0, 
voici qu'apparait Scoop, de 
Target Software, un logiciel 
de mise en page (jadis connu 
sous le nom de Solo), qui promet 
de ne pas limiter ses utilisateurs 
(comme ceux de Page Maker) a 
des formats rigides et a des 
images rectangulaires, le texte 
s'enroulan: automatiquemeni 
autour d'images meme 
irregulieres- On peut aussi cr&r 
simultantdment ks textes ct les 
graphiques. 

Voici encore Xpress de Quark, 
riche de nombreuses possibilit6s 
typographiques, de cranage de 
precision, au 1/lOOe de la largeur 
d'un caractcrc, d'habillage 
d'illustrations irregulieres, etc. 
Bref, un logiciel donl on reparlera 
i coup sur. 

A remarquer, encore la version 
III de MacPubl isher , de 

Boston Publishing Systems, 
que Lettraset n'a finalement pas 
adoptee, lui preferant Ready Set 
Go 3.0, Cette nouvclle version 
considerahlement amelior^e, ei 
fonctionnant en couleurs sur le 
Macintosh II possede des niveaux 
de gris r^glables par increments 
de 10%, des possibilites de 
rotations, une ensure 
automatique, etc. 
Enfin, Office Tallt est k la fois 
un systeme dc communication ct 
de publication, compatible 
MS-DOS et Macintosh, qui 
permct de s'dchangcr des 
fichiers, de les mettre en pages, 
d'expedier du courrier 
electronique et d'imprimer les 
documents sur Linotype. Un 
systfeme dont nous reparlerons en 
details. 



68 



Pom's n° 30 



Amelioration de 
textes 

Voici rOrthogiciel Plus, la 
demiere mouture du correcteur 
orthographique de Larousse. A 
remarquer que, contraiiement aux 
versions precedentes, celle-ci 
fonctionnc avcc MacWritc 4.5, 
on n'importe quel fichier texts. 
On peut se constituer des 
dictionnaires particuliers (c'est 
mtme fonement conseilld car, en 
examinant un texte, le programme 
s'arrete sur tous les noms propres 
ou tcrmcs qu'il nc connait pas). 
Le fonctionnement est impres- 
siomiant et unpeccable. Un oudl 
indispensable a tous ceux qui 
veulent ^vicer les fautes 
d'orthographe. Un seul regret : 
que ce programme ne fonctionne 
pas au moycn d'un acccssoirc de 
bureau, ce qui permettrait de lut 
faire corriger un texte sans avoir a 
quitter le traitement de texte 
utilise. Enfin, il reste wujours la 
possibilite de le faire fonctionner 
sous Switcher. . , 

Bootware Software Com- 
pany, a cree Personal 
R6suni^-Wr iter, qui aide i 
ecrire... non pas des resumes 
tgare au contre-sens), mais des 
curriculum vits. On tape les 
informations dans des fenetres 
prd-ddfinies, et le programme niei 
le document en page 
conformement aux specifications 
qui ont etc prccisees. Prix : 30 
dollars pour tin seui nnm et .^95 
dollars pour un nonibrc illimitd de 
noms (pour les professionnels du 
CV ou du recmtement). 
PowerPoint dc Forethought 



Inc. permet, lui, comme More, 
de r^aliser de.s diagrammes pour 
prdsentations d 'org ani grammes, 
cartes, etc. Les graphiques et 
tcxtcs pcuvcnt etre impon6s 
d'autres programmes Macintosh, 
les ecrans sont imprimes sur 
LaserWriter. Prix ; 395 dollars. 

Logiciels 
specialises 

Pour les actions. The Right 
time de TBS P est un loglciel 
graphique d'aide a la decision 
bourslere dormant des indications 
sur le moment d'achat ou de 
vente. Pnx : 399 dollars. Est-ce 
ie bon moment pour I'acheter ? 

Cine Mac 

Beck-Tech a ct66 M a c - 
Movies, un programme 
spectaculaire, permettant d'ani- 
mer des images, pius simple que 
VideoWorks et vendu 99 dollars. 
Mac Movies est compose de 
quatre modules, permettant de 
visual iser une serie de documents 
MacPaint, de eomprimer les 
documents et d'enchainer les 
documents ensemble. On pcut les 
voir sous forme de films et relier 
des films les uns aux autres. A 
noter que le Mac commence a 
cnvahir les smdios d'Hollywood. 
On trouve ainsi des logiciels 
permettant comme Scriptwriter 
d'ecrire des scripts sur deux 
colonnes (avec numeration 
automatique des scenes, 
placement des dialogues, etc) et 
Story Boarder, un programme 
de dessin permettant de 



prograrrmier les sequences d'un 
film avec les effets de transitions, 
etc. 

Des utilitaires 

Cc sont les programmes 
accessoires qui rendent la vie plus 
facile. Les utilisateurs de Mac les 
connaissent bien. Voici d'abord 
des lempiaies , ces formes 
predefinieg qu'ii ne reste plus 
qu'a remplir, ou ces programmes 
ddj& machds. Dans cette demifere 
categories TBI a realise avec 
I'aide de 4D un programme de 
gestion agricole. Dans la 
premiere. Aldus, I'editeur de 
PageMaker, distribue en France 
par ISK Cegos, a 6tudi6 un 

Portfolio. 11 s'agit de maquettes 
predefinies pour des mises en 
page avec PageMaker. 11 ne reste 
plus qu'i insurer son texte ou ses 
images dans une maquette qui a 
ete dessinee par des "pros". Bien 
commode pour tous ccux qui 
doivent faire de I'edition 
electronique mais ne connaissent 
pas forcement I'art de la mise en 
page. 

L'impression est aussi un 
domaine de choix pour les 
utilitaires. Softstyle en est 
devenu un specialiste. 11 propose 
ainsi Laserstart Plus, 
permettant pour 145 dollars 
d'utiliser avec le Mac une 
imprimanie HP Laserjet, Canon 
LBF 8A, etc. Quant a 
Colormate, c'est un logiciel qui 
permet d'imprimer en couleurs 
des documents du Mac sur 
rimprimante Image Writer 11. 

Un autre systeme plus onereux, 
Ps .let de Laser Connection 

permet pour 3000 dollars de 
transformer une imprimante Laser 
HP Laserjet en LaserWriter, Seul 
probleme : I'ensemble revient 
alors plus cher que 1 'Imprimante 
d'Apple... 

Quant a KroyKolor de Kroy 
Sign .Systems, c'est un 
apparel] pennettani de coluricr un 
document. On I'imprime, puis on 
le gUsse dans une feuille de film 
transfert, on le place dans un 
appareil et le document se colorie. 
On peut aussi rdaliser des 
documents en plusieurs couleurs, 



Universal File Conversion 

De nombreux lecteurs cherchent uainement ce 
programme chez les revendeurs franqais. II est 

possible de le commander directement aux 
Etats-Unis ($44,95 franco, indiquer le numero de 
carle VISA) aupres de : 
Quality SoftWare, 21601 Marilla Street, 
Chatsworth, California 9 13 11, 
Rappelons que ce programme permet de convertir 
les fichiers d'un system-e d' exploitation a. I'autre : 
DOS 3.3, ProDOSfSOS, CP I Met Pascal. 
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en d6coupant des morceaux de 
films cransfert. La machine coute 
995 dollar et les films 50 cents la 
page. 

A noter enfin des programmes 
qui peuvenL rendre bien des 
services : la version 2 de My 
Disk Labeler de Williams & 
Macias imprime des etiquettes 
pour les disquettes eventuel- 
lemcnt en couleurs ou sur 
LaserWriter en melant le 
graphique au tcxte, Prix : 45 
dollars. 

Et Disk Ensure et Disk- 
Express dc ALSoft permectent 
de r6aliser des copies de 
sauvcgardc d'un disque dur, ct de 
reorganiser les fichiers pour 
accdl^rer les acc6s. Pour 40 
dollars chacun, 

Cote materiel 

Remarquable Ic disque dur 
DataFrame 40XP de 
SuperMac. C'est toui 
simplement le plus rapide, a ce 
jour, des disques dur pour le 
Mac. Un 40 mcgas pour 1900 
dollars. Puissant le 'I'urho May 
dc Mac Memory, un accdlf- 
rateur pour le MacPlus qui le fait 
fonctlonner trois fois plus vice 
avec un coprocesseur 68881 et 
1 ,5 Megas de memoiie pour 1300 
dollars. 

Versatile, le coprocesseur 
MS-DOS pour MacPIus de 
Dayna Mac, le createur du 
c€\bhre MacCtiarlie, Pour 795 
dollars, on a un lecteur de 
disquenes de 360Ko, une ca^rte 
avec 256Ko de RAM extensible, 
une copie de MS-DOS. La carte 
se branchc dans un des ports 
serie et permet de faire 
fonctionner les logiciels MS-DOS 
dans une fenetre, Ingenieux, 
I'accelerateur de Peak 
Systems, permettant au Mac 
SE, grace k une carte d'utiliser le 
processeur 6S020 du Mac IL 
Meme chose pour le Prodigy 
SE de Levco. Sensible, le 
Data Acquisition de G W 
Instruments, un boitier qui 
permet de nourrir Ic Macintosh de 
donnees recueillies h. I'exterieur, 
et tie le transformer en 
oscilloscope, analyseur de 
spectre, etc. 



Et I'Apple // 
alors ? 

Revoici des programmes pour ce 
bon vieil Apple //. Sa version us 
lui a decidement donn^ un coup 
de jeune. Word Perfect lui a 
ainsi transpose son traitement de 
textes. Bank Street Writer de 
Scolastic Software, qui fut un 
des premiers traitements de textes 
faciles en est ^ sa version IH et 
comprend un dictionnaire de 
cnrrecfinn (en anglais seulement 
hclas). Prix : 100 dollars. 

Du graphisme 

Paintworks Plus d'Acti- 
vision est un programme de 
dessin dote d'une fonction 
d'animation pour realiser des 
dessins animcs. La brossc du 
pinceau dispose ainsi de quelque 
32 formes, on pent utiliser 16 
couleurs sur une seule image, 
choisies dans une palette de 
4096, etc. Prix : 80 dollars. 
TopDraw de Style ware est un 
melange de MacDraw pour le 
Mac et de MacPaint, avec les 
mgmes possibilit^s de couleurs. 

Du son 

Music Studio d'Activision 

pemiet de b^neficier des capacitds 
sonores du gs. On peut composer 
des partitions, utiliser 45 
instruments pn^dcfinis ou on crccr 
de nouveaijx, le tout sur 15 
caiiaux. Prix ; 80 dollars. 

Des sciences 

Le Science Toolkit de 
Broderbund Software corres- 
pond a la boite de chimie qu'on 
offrait jadis aux enfants. 
Difference, tout se passe sur 
I'ecran, mais avec des 
instruments de mesure qui 
fournissent, par exemple, la 
temperature a I'ordinateur. On 
doit disposer d'un module maTtre. 
Ensuite il y a deux modules, Tun 
consacre a la vitesse et a Taction, 
le second k raciivit6 s^ismique. 
Prix de chacun des deux 
modules : 40 dollars. 



Du materiel 

II n'y avait pas de raison pour 
que I'Apple // ne beneficie pas 
d'un numeriseur d'images 
comme le Mac. A I'image du 
Thunderscan, le Scannit de 
JED Design s'insralle a la place 
du ruban de Timprimante 
Imagewriter ct permet de 
numeriser une image. Prix : 219 
dollars. Pas de raisons non plus 
pour que I'Apple // ne puisse pas 
lire les fichiers MS-Dos. C'est 
chose faitc avec la carte the 
Envoy d'Asky. Ce controleur 
permet d'dcrire et de lire des 
disquettes au format MS-DOS. A 
condition, bien sOr, de lui relier 
un lecteur de disquettes 
compatible. Prix du controleur : 
180 dollars. La firme travaille a 
des utilitaires permettant de 
convenir les donnees de Lotus en 
ProDOS, Pas de raisons non plus 
qu'on ne puise utiliser TApple // 
cn usine. On le salt notamment en 
France chez Peugeot, Isaac, de 
Cyborg, est un boitier 
d'acquisitions de donnees 
permettant de controler des 
processus, de transformer 
I'Apple en spectroscope, 
chromatographe, etc. 

Et il y avait encore moins de 
raisons de ne pas transformer 
I'Apple IlGS en un instrument 
stereo haute fidelite. C'est fait 
avec la carte Supersonic ei 
Supersonic Digitizer dc 
MDIdeas. On branche cette carte 
sur des enceintes acoustiques, et 
on obtient un son stereo. Prix ; 
60 dollars et 40 dollars pour le 
numcriseur. La meme firme 
propose une carte d'extension de 
mcmoire jusqu'a 8 Megas 
permettant d'utiliser les 
prograiimies siuck6s en RAM et 
preserves par une pile 
rechargeable. Prix ; 350 dollars 
pour la carte d'un mega ct 180 
dollars pour la carte ESP 
ram pack. Dans le meme esprit, 
voici la carte Speedisk de Thot 
Informatique : compatible ll-t-, 
//c, llos, il s'agit d'un disque 
virtuel a memoire permanente 
sauvegardee jusqu'a deux mois 
grS-ce i sa pile. De 384Ko ^ 1 
Mdga, les transfens se font a 
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50Ko & la seconde sur le gs pour 
un prix aUant de 4 a 6000,00 F 
selon capacite. 

Adresses 

Bering Industries 280 

Technnlngy Circle. Scntts Valley 
CA 950G6 

Jasmine Computer Systems 

555 De Haro St, San Francisco 
CA 94107 

Brainpower, 24009 Ventrura 
Blvd, Suite 250, Calabasas, CA 
91302 

Supermac Technology, 950 
N Rengsiorff Ave. Mountain 
View, CA 94043 

AST Research, 2121 Alton 
Ave Irvine, CA 92714 

Sigma Designs, 46501 
LandiJTg Parkway, Fremont CA 
94538 

Dayna Communications, 50 
S. Main St. Salt Lake City UT 
84144 

P-Ingenierie, 226 Bd Raspail, 
75014 Paris, Tel. : 43 21 93 36 



Laserware, PO Box 668, San 
Rafael, CA 94915 

Target Software, 14206 SW 
n6thSt, Miami, PL 33186 

Boston Publishing Systems, 
1260 Boybtun St Boston MA 
02215 

Bootware Software Compa- 
ny, 5856 Parkmor Rd Calabasas 
CA 91302 

Torethought Inc. 250 

Sobrantc Way, Sunnyvale, CA 
y40S6 

TBSP, 8821 Alcott St, Los 
Angeles, CA 90035 

Beck Tech, PO Box 5027 
Berkeley CA 94705 

Softstyle 7192 Kalanianaolc 
Hwy Suite 205 Honolulu, HawaT 
96825 

Laser Connection, PO Box 

850296 MobUe AL 36685 

Kroy Sign Systems 7560 East 
Redfield Road Scottsdale Arizona 
85260 

Williams & Macias PO Box 

19206 Spokane WA 99219 



ALSoft PO Box 927 Spring Tx 
77383 

Mac Memory 2480 North First 
Street. San Jose, CA 95131 

Peak Svstems 1201 Spyglass 
Austin TX 78746 

Levcu 6161 Lusk Blvd Suite C 
203 San Diego CA 92121 

GW Instruments, PO Box 

2145 Cambridge MA 02141 

Activision PO Box 7287 
Mountain View CA 94039 

Styleware 5250 Gulfton Suite 
2E Houston Texas 77081 

Broderbund Software 17 
Paul Drive San Rafael CA 94903 

JED Design 3300 Central Ave 
SE Canton OH 44707 

Asky, 4320 Stevens Creek Blvd 
Suite 287 San Jose CA 95129 

Cvborg 55 Chapel St Newton, 
MA 02158 

MDIdeas, 1163 Triton Drive 
Foster City CA 94404 

Thot Informatique B.P. 421 
49004 Angers Cedex Tel : 41 86 
17 74 
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Les discjuttUs Mac a 9\^ac I 

Ces diequettes contiennent des programmes ou documents 'dnmRirift public' ou 'J^'reeware' : elles 
sont le resultat d'une selection coinjointe de Pom's et du Club Apple parini les 25 disqueLLes 
iniLialeraent propos6es par le Club Apple. Cette reduction de 25 disquottes en 8 correspond a une 
elimination de nombreux programmes qui soit np. foncticinnaient pas sur Macintosh Plus, SOit 
presentaient un interet pratique r^duit. Vous trouverez ci-desbuus u.n 'catalogue' des disquettes 
avec, pour chaque article, unc breve description. 



ITS' Disquette Mac B - PoKcra de caracteres 

Andover 12 - APL 12 - ASCII 12 - Bookman* 14/24 - Boxes 9/10/12 - Broadway 24 - Centuiy 18/24 
Chancery 24 - Chicago by night 12 - Circus 12/18/24/36 - Cirth 48 - Cursive 12 - Cyril 12 
East Orange 12 - Elite 12 - Elvish 12 - Eon 12 - Exeter 13 - Greek 9/10/12/14/18/24 
Hollywood 12/24 - Hood River 12 - Lineal 18 - Mars 18 - London 18/36 - Long Island 12/18. 



I®" Disquette Mac C - Polices de caracteres 

N Helvetica Narrow* 14 - Ophir 12/24 - Palo Alto 9/12/18/24/36 ~ Park Avenue 18 
Philly 9/10/12/18/20/24 - Pica 12 - Prinueton 12/24 - Ravenna 12/24 - Runes 12/24 - Santiago 12 
Silicon Valley 12 - Stencil 12/24 - Symbol* 9/12/18/24 - Tiny 12 - Toronto fixe 9 - Vectors 9/12 
Zapf Dingbats* 18. 

* les polices marquees d'une etoile ne sont pas celles de la 'LaserWriter' portant les memes noms. 



B3" Disquette Mac D - Accessoires de bureau 

ArtThicf pour visualiscr des images MacPaint ou FullPaint, copier des images plus grandes 
que les fenetres de ces applications... tout ceci sans quitter I'application en cours. 

Ascii.DA pour connaitre imm^diatement le code ASCTT d'un caractfere, en decimal, en 
hexadecimal et en octal. 

FKEY a la fois accessoire et application. II permet I'installation de 'Mini-programmes' 

semblables, dans I'esprit, aux accessoires de bureau, mais accessibles depuis une 
touche de fonetion tout comme 'Commande-l' provoque rejection de la disquette du 
lecteur interne, ou 'Commande-3' la copie de 1 ecran sur disquette.Voici la liste des 
fonctions fournies sur la disquette Mac D : 



ASCins pour saisir n'iinporte quel caracteres m§me s'il n'est pas accesaible 

directement au clavier. 

ASClip idem, mais le caractere est place dans le 'presse-papiers'. 

tiigCursor la taille des curseurs est doublee. 

Clippy place dans le 'presse-papiers' les caracteres speciaux. 

ComKey pour lire la zone 'commentaire' des fichiers. Ne fonctionne pas en HFS. 

DA Key pour essayer un accessoire sans Tinstaller dans le menu ^, 

FadeKey pour 'eteindre' momentandmcnt Vccran. 

PanicKey le Mac se defoule k votre place ! 

ScreenToClip place la partie de I'^cran de votre choix dans le 'presse-papiers'. 

SetSound pour regler le niveau sonore. 

ShowKey 'catalogue' des touches utilis^es et de leur.q fonctions. 

Sleep proche de FadeKey mais avec une 



Poor Boy's creation et installation de macro-instructions. 

Dec Maker pour les decideurs en panne d'inspiration ; cet accessoire ludique prend les 

decisions h Icuf place 1 
File Tools permet diverses manipulations de fichiers. 
Maxwell un jeu d'adresse et de patience. 

TTacBox a la fois montrc, chronometre, et indicateur de memoirs libre. 
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^ Disquctte Mac E - Applications 



AMAZING jeu de labyrinth e, avec plusieurs niveaux de difficult^. 

Analog Clock horloge 'a aiguilles'. 

Eackgamnioii cSlebre jeu de societe, tres bien presents. 

Banner impression de banderoles sur papier 'listing'. 

Bricks jeu 'casse briques'. 

Canfiels jeu de carte. 

DiskUtil -utilitaire pour disquettes. Controlc, etc. 

Fast Formatter Formatage rapide de disqnettfis 

MauliMac Conversion de fichiers au format SYLK (Excel, Multiplan, 4*^^^ Dimension) en 
format 'texte'. 



•a* Disquctte Mac F - Applications 

DataFlow programme sophistiqu6 pour le dessin d'algorythmes. 

Reversi jeu de reflexion. 

yapu utilitaire pour ImageWriter. 

Enigma superbe jeu du type Rubik cube, mais avec deux cercles croisfSs. 

F/DA Sorter tri alphabetique des articles dans les menus. 

FileDiddler manipulation de fichiers 'texte'. Ajoute ou enlfeve certains caratteres de 
controle. 

HexPuzzle jeu sur une valeur hexadecimale. 
laffo jeu de reflexion. 



IS" Disquette Mac G - Applications 



ResEdit 
kon Editor 
JClock 

life 

Missile Command 



^diteur de ressources. 
editeur d'icones et curseurs. 

installe Vheure dans la barre de menu. EHe y reste meme si vous changez 
d'application. 

jeu de la vie extremement rapide icnt par I'auteur de MacPaint, 
jeu d'action. 



"3- Disquette Mac H - Applications 



MacBILLBOARD Editeur d'affiches, Fermet I'agTandissement ei Vimpression d'images 
MacPaint jusqu'^i 32 fois. 

remplace le curseur en forme de montre par iine montre animee. 
editeur de menus, 
compacteur de fichiers 
jeii d'adressft. 
jeu de reflexion. 
Editeur de sons evolucs. 



MacWait 

MenuEdit 

Packit 

Social Climber 

Solitaire 

WaveMaker 



Disquette Mac I - Applications 

Snooker jeu de billarJ trfes r^aliste et comportant de nombreuses options : billard 

franfaie, am^ricain, nombre de billes, angle d'attaque variable, ete. 

SystcmVersion donne le num^ro de version et la date de creation du fiehier systfeme 
couriint. 

Adventure of Snalie jeu d'adresse. 

ThinkTank to WF conversion de fichiers ThinkTank en fichiers 'texte' utilisable depuis un 
logiciel de traitemeiit de textes. 
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LJ 
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A] 


; UOKo 19 
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LJ 


Mac 2U 


on nn c 
90,00 r 


1 — 1 

u 


A] 
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60,00 F 
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LJ 
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;UOKo 25 
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80,00 F 


□ 


A] 


UOKo 29 
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Apple ][ 8OOK0 3'5 numero 30 


80,00 F □ 


Mac 30 
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;i40Ko 30 


60,00 F 
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Revue n** 4 
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□ 


Revue n= 7 


35,00 F 
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Revue n" 
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□ 


Revue n" 10 
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LJ 


Revue n°ll 
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Revue n° 


12 
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1 1 


Revue n° 13 
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□ 


Revue 14 


40,00 F 


□ 


Revue n° 


15 


40,00 F 


□ 


Revue n° 16 


40,00 F 


□ 


Revue n° 17 


40,00 F 


□ 


Revue n° 


18 


40,00 F 


□ 


Revue 19 


40,00 F 


□ 


Revue n° 20 


40,00 F 


□ 


Revue n° 


21 


40,00 F 


□ 


Revue n° 22 


40.00 F 


□ 


Revue 23 


40,00 F 


□ 


Revue n" 


24 


40,00 F 


□ 


Revue n° 25 


40,00 F 


□ 


Revue n'' 26 


40,00 F 


□ 


Revue n" 


27 


45,00 F 


□ 


Revue n'' 28 


46,00 F 


□ 


Revue n° 29 


45.00 F 


□ 


Revue n° 


30 


45,00 F 


□ 



Abonnements pour six num^ros k partlr du , k : 

!a revue seule 225,00 F □ 

la revue et les disquettes Apple ]| UOKo - 5' 1/4 525,00 F [ I 

la revue et les disquettes Apple ][ 8OOK0 - 3' 1/2 625,00 F □ 

la revue et les disquettes Macintosh 625,00 F □ 

la revue, les disquettes Apple ][ 1 40Ko - 5" 1/4 et les disquettes Macintosh 925,00 F □ 

la revue, les disquettes Apple ][ 8OOK0 - 3* 1/2 et les disquettes Macintosh 1025,00 F □ 

' pour les envois par avion, ajouiez 1 5 F par nurrero et/ou par distguette soil par example. 90 F pour un abonnement avec disQuettas. 



Envoyez ce bon e( voire reglemerrt a : Editions MEV - 12, rue d'Anjou - 7B0OO VersaillBS 

Nom : 

Adresse : 

Reglenwnt par : Carte BleueA/ISA □ Cheque bancaire □ Chfeqiie postal □ Mandat □ 

rum§fo de la carte date d'expiration 

Montant ,__F Signature: 

74 Pom's n° 30 



C§ble-interface de communication Apple/Minitel 

Cette liaison - dferite dans le$ num^ros 27 et 28 de Pom's - est indispensable fX3ur faire fonctionner les programmes suivants : 

• MinBas pour Apple ][-)-, 11%. lle^, //c et //GS' : programme permettant renregietrement des dcrans Minitel, la reslitution i ioisir 
hors reseau, le stockage et/ou llmpression de copies d'&ran du Minitel, et aussi I'envoide textes ou messages sur un serveur, ces 
messages etant prepares a I'avance auec n'importe quel programme de traitement de textes Programme publie dans le numero 27 
de Pom's. 

• Minitel/1 pour Macintosli : programme identique a MinBas pour Apple ][. avec en plus un mirvi-editeijr de texte pour la preparation 
et le stockage des messages sais sortir du programme. Programme publie dansle numero 27 de Pom's. 

• InterPom's pour Apple ][+, J/e, //e+, lie et //GS' : programme de telechargement entre Apple ][ evm Apple |[ et Macintosli, Ce 
logiciet autorise la transmission de nimporte quel type de fichier (systeme, texte, binaire, Basic..,) en utilisant le Modem du Minitel. 
Programme public dans le nuinero 28 de Pom's. 

• InterPom's pour Madntcsh : meme programme, mais versbn Macintosh. Programme publie dans le numero 28 de Pom's 

■ TPom's pour Apple ][+, //e, lis*, Jlc et //GS" : programme de recuperation de I'annuaire telephonique sous la forme de tichiers 
texte. Voir page 53 de ce numero. 

• TPom's pour Macintosh : Identique & la version Apple )[. Voir page 42 de ce numero. 

• c$ programme est pravu pour fonctionner avec una carte Super Seria Appio ; le port serie Integra de 1' Apple lIGS ne convient pas. 
Toutefols, si vous desirez utiliser le port integre afin d'y connecter le Minitel pour d'autres applications, commandez un cable pour 
Mad n tosh Plus. 

** sur un Apple iIGS, TPom's fonctionne indifferemment avec le port serie integre ou la carte Super S6rie Apple. Pour connecter te 
port integre du IIGS, utilise! un cable pour Madntosti Plus. 

Je desire recevoir : cable Minitel/Apple ][+, //e, //e+, lies avec SSC a 225,00 F 

cable Minitel/Apple //c a 225,00 F 

cable Minitel/Macintosh 128 &512KO a 225,00 F 

cable Minitel/Macintosh Plus, lies port integre a 225,00 F 

' pour les envois par avion, ajoutez 15 F par cable. 

|€ 

Envoyei ce bon et volte reglementa : Edlllons MEV - 12, rue d'Anjou - 78000 Versailles 

Norn : 

Adresse : ^ 

Rfegiemerrt par: Carte BleuftA/ISA □ At Cheque bancaire Z Cheque postal □ Mandat □ 

numero de la carte date d'expiration 

Montant , _ _ F Signature : 



En plus du programme 
TPom's et des fichers 
MDS 68000 utilises pour 
sa realisation, la dis- 
quette Pom'55 'Mac 30' 
contient Tapplication 
Screen Editor. II s'agit 
d'un tres puissant edi- 
teur permettant la misc 
au point dc menus, 
icones, fenetres d'alerte, 
*boites k dialogue' et 
fenetres de tous types, 
De plus, vous trouverez 
sur la disquette deux 
superbes images Mac 
Paint- 



Disquette Macintosh numero 30 



Screen Edilor Menus [UirdoiJJS dialogs HIcrts 
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[Load old Icon ] [ Eaad old Mask 1 ^Heh ditpLau 




Depot legal : mai 1 987 - N" d'impression ; 788964. Imprime»-ie Berger-Levrauf!. Nsncy. 




□ Mme □ Mile □ M. Nam : Societe : 

/ydresse : Tel. : □ Bureau □ Damicila 



Etes-vous : □ Particulter □ Societe □ DIstributeur - Profession : _ Ou □ Elutliant 

Marque et modeie de votre ordinateur ; Usage □ Familial □ Pmfessinnnel - Date de 1" mise en service : ^ 

COUPON A RETOUnfJER AU CENTRE DE MAINTEfJAMCE ARAMIS -ALLEE DES FRENES - &029D RANTIGNY. 



